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APPLE HGS existe. Tremplin Micro To meme essaye ; mieux ; nous 
avons teste, sur cette superbe edition de la formule II, tous les pro- 
grammes du present numero. Parfaitement : la compotibilite a ete 
verifiee, en mode emulation bien sur, et je vous assure que go mar- 
che. Y compris I'HORLOGE de Francois Galiet, mats en tenant 
compte des restrictions indrquees par I'auteur,,. et en sachant que 
le GS n'a vraiment pas besom de cette horloge d'appoint ! 

Quant a f'ORGUE de Roland Jost, il est superbe, mais en utilisont le tableau de 
bord du GS pour fe mettre en vitesse lente, .. comme le ite qu'il emule si bien, 
mais parfois avec trop de brio. Mais oui : il est reel lenient tres agreable 
d'observer la rapidite de laffichage et I 'acceleration dont beneficient certaines 
routines de not re vieii Applesoft. 

Je vous mets Teou a la bouche, pas vrai ? Croyez bien que je le regrette. Si cet 
aveu peut vous consoler, sochez que je ne sjis pas mieux lot i que vous : j'ai 
definitivement restitue son GS au service de Presse d'Apple... et j'attends 
maintenant le mien. Je comprends la deception de certains lecteurs de Trem- 
plin Micro : commander un ordinateur personnel est une chose ; pouvoir s en 
servir quand ban vous semble en est une autre. Helos ! dans Je monde entier, 
les constructeurs de centaines de maferiels font les memos annonces, puis ne 
tiennent pas leurs promesses. On ne compte plus les clients qui, en desespoir 
de cause, ont annuie une com monde ici... pour en attendre une autre la ! 

II faut reconnoitre qu'Apple n'avait rien promts du tout. On savait depuis le 
premier jour que f'Apple //GS ne seraSt vraiment disponible (e'est-a-dire livra- 
ble dans les 48 heures) qu'au debut de 1987 Convient-il de regretter que 
I'an nonce en ait ete forte un peu trop tot ? Hum ! qu'ouraient dlt les incondi- 
tionnels de la marque si on avait continue a leur cacher la sortie prochaine 
d une machine que tout le monde ottendait ? 

Cest pourtant ce qui se passe avec les imprimantes (Apple sentend), Je vous 
assure que nous ne savons rien. Officiellement. Comme certains de nos lee- 
teurs, nous avons appris, dans des magazines edites outreAtlantique, que 
plusieurs imprimantes Apple — dont une laser "democratique" — etaient sur 
ie point d'etre commercialisms, Cest recent., . et cest tout.,, du mains au 
moment ou je redige ces lignes, e'est-a-dire au debut du mois de decembre, 

En attendant d'en savoir dovantage sur ces merveilles, souhaitons-nous une 
bonne.., une excellent© annee 1987. Merci de votre attention et rendezvous 
dans deux mois ! GUY-HACHETTE. 
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APPLE /ICS : DEPLACEMENT DE L'ECRAN.TEXTE 



c'est parti ! 
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N'enviez pos Nicole _ Breoud-Pouliquen, 
outeur du premier MEMENTO consocre a 
I' APPLE UOS (ou PSI) : exploiter une 
documentation, aussi complete soit-efle, 
et en extraire les adresses indispensa 
bles ou progrommeur amateur n est pos 
de tout repos... surtoui quand il n'existe 
□ucun outre ouvroge permettant d'utiles 
comporaisans. Je vous invite d decouvrir 
ccs CLEFS POUR APPLE HGS. Celfe pre- 
miere edition comporte cerles des laeu- 
nes, mais 1 etude du GS n'en est qu'a 
ses debuts ! Que Ton ne s'y trompe pas ; 
si cet ouvroge s'adresse d'obord et sur- 
tout a des programmeurs pratiquant 
I'assembleur (ou le langage C), il fouf- 
nira d'indispensables informations 6 
lous les autres. 

On exorninera ovec curiosite le systeme 
CPW. avec son moniteur, son editeur et 
son macro-ossembleur. mais on s'attar- 
dera sur le repertoire detaille des outils 
du bureau eleclronique (QuickDraw, 
WmdowManager, Menu-Manager, etc,)* 

Nicole Breaud Pouliquen a meme pous- 
se la gentillesse jusqu'a montrer dans un 
programme d' application, comment 
ajouter un occessoire de bureau a une 
application. Ce n est pas d une simplicity 
evidente, mais je sois que bon nombre 
d Applemanioques se rejouissent deja a 
la pensee de pouvoir prochainemenl 
compter la bete ! GuyHachett* 



IlillllllllllllflHIilliiiiiiiiiiiiiiiiiiiH GS cxdusivpmeiit 

10 PRINT CHR$ (21): HOME 

15 FOR I = 768 TO 793: READ R: POKE l,R: NEXT : POKE 
2339 r 32 

20 FOR I = 24 TO 1 STEP - 1 : HTAB I: VTAB I: PRINT I;; NEXT 

30 PRINT : CALL 768 

40 POKE 778 r 96: POKE 781,04 

50 GOSUB 90; HOME : GOSUB 90; CALL 768 

60 X = X + 1:IFX<9THEN 50 

70 POKE 778,04: POKE 781,96 

80 VTAB 20: PRINT "[M]ENU ";: GET RS: PRINT R$: IF RS - 

"M" THEN PRINT CHR$ [4) "RUN MENU.GS " 
85 HOME : END 

90 VTAB 22: INVERSE : PRINT TOUCHE SVP ";: NORMAL : 
GET R$: PRINT: RETURN 

95 DATA 8,24,251,194,48,169,255,3,162,0,4,160,0,96,169, 
255,3,84,0,0,56,251,226,48,40,96 



LA LICNE 95 



*300-319 

300: 08 18 FB C2 30 A9 FF 03 
308 : A2 00 04 AO 00 60 A9 FF 
310 : 03 54 00 00 3B FB E2 30 
318 : 28 60 



LES COULEURS DE L'ECRAN.TEXTE 

EHHilllllllllllllllllllllllllllllllllllB gs 

10 PRINT CHR$ (4)"PR£3": PRINT : HTAB 15: PRINT " LES 
COULEURS DE L'ECRAN TEXTE DE VOTRE APPLE IIGS " 

20 A = PEEK (49186): B = PEEK (49204): REM Couleur 
actuetle (A - Fond / 8 s Cadre) 

25 FORI = 236 TO 251 : POKE 491 86,1: GOSUB 90: NEXT 
30 CALL - 198 

35 FOR J = 60 TO 75; POKE 49204, J: GOSUB 90: NEXT 
40 POKE 49186,A: POKE 49204, B 

50 VTAB 22: PRINT "(M)ENU ";: GET R$: IF R$ = "M" THEN 
PRINT CHR$ (4) r RUN MENU.GS" 

80 END 

90 POKE - 16368,0: WAIT - 16384,128,127; POKE -16368,0: 
RETURN ■ 
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ECRITURE EN MODE 

Haute Resolution etendue 



En dehors de logiciels fermes tels que PURPLESOFT, ARLEQUIN ou EXTA- 
SIE f difficiles a modifier, il n'existe encore que peu d'utilitaires permet- 
tant de gerer lo double haute resolution de I'Apple tie 128 K ou de son 
cousin I'Apple He. Dans le n°10 de Trempiin Micro, Thierry Gauthier a 
presente un programme d'inversion d'ecran DHGR. Je vous propose 
maintenant un uf ilitaire permeitant I'ecriture en page DHGR. 

ECRIT.DHGR est appele par la fonction AMPERSAND et permet a partir 
d'un programme Applesoft, d'aff icher du texte en page haute resolution 
etendue. Les possibilites sont les suivantes : 

• Alphabet francos accentue, alphabet grec, indices et exposants (interes- 
sant pour les programmes de chimie, physique ou maths). Tous les caracte- 
res peuvent etre ecrits en gras, en double hauteur, en inverse, Enfin I'ecri- 
ture peut se faire horizontalement, vers le haul, vers le bas ou en oblique. 



Routine LM et table de caracteres 

Trempiin Micro ne public pas le programme 
source, mais celui-ci figure sur la disquette 
n°12. Pour taper ECRIT.DHGR, procedez done 
de la maniere habituelle : CALL -151, puis les 
differentes lignes de codes. Sauvez-le par : 
BSAVE ECRIT.DHGR A$4000 L465 



Attaquez-vous ensuite 6 la table de caracteres 
(ce n est pas du gateau, mais el le vous rendra 
de nombreux services I ) : 
4290 : 60 10 10 08 08 04 04 03,.. 
et sauvez-la par : 
BSAVE NEWSET2 F A$42Q0,L2O48 

SIGNATURE { vo ' r bulletin de commande) vous permettra un controle facile de la soisie de ces 
^^^^^^m routines.,, et, d'une maniere generate, de toutes celles a paraltre dans T.M. 



Comment utiliser ECRIT.DHGR ? 

Un BLOAO ECRlTDHGR vous permettra de 
I installer en memoire, Votre programme 
BASIC devra faire pointer la fonction Amper- 
sand en $4000 (POKE 1013,76: POKE 1014,0: 
POKE 1015,64) et afficher la poge DHGR. 
Pour afficher une variable alphanumerique, il 
suffira de faire : 

5 PRINT "choine" AT X,Y ou 

6 PRINT A$ AT X Y avec la position horizontals X {entre 
et 79) et lo position verticals Y (enfreOet m) 



Pour afficher une variable numerique, il fau- 
dra la transformer en chaine de caracteres par 
la fonction STR$. Cela n'est pas un handicap et 
vous permettra d ajouter un affichage formate 
(variables chaTnes), 

Ecriture en double hauteur : faire SCALE = 2: 
Pour revenir en mode normal : SCALE = 0, 
Ecriture dans differentes directions : la direc- 
tion de l"off ichage peut etre modifiee par [ ins- 
truction ROT, (suite page 4} 

9smuasmmmmmammma999m mmmmmmmmummmmmmm*mmmmmmmmmm 



TREMPLIN MICRO 



ROT = : offichage horizontal 

ROT = 7 : eh oblique a 45° vers 1e bas 

ROT - i : verticalemenf d de haut en bos 

ROT = 15 : en oblique vers le haut 

ROT = 16 : verticalement, de bas en haul. 

Les autres possrbilites s'obtiennent en inserant 

des caracteres de controls dans lo chalne : 

CTRL-B : Le prochaincaradere sera decole vers Ee bas. 

CTRL-E : Lepmchaincoractereseramisenexposani 

CTRL-F : Le prochain caractere sera en grec minuscule. 

CTRL-G : Lecoradere qui suit sera en grec majuscule. 

CTRL-I : Le caractere qui suit sera mis en indice. 

CTRL-0 : Le caractere qui suit sera decale vers le haut. 

CTRL-P : Tous les corac teres Qui suivent seront im pri- 
mes en gras jusqu'a la fin de la chaine au la 
rencontre du CTRL-N, 

CTRL-Z ; Tous !es caracteres qui suivent seront impri- 
mis en INVERSE jusqu'a la tin de lo chains ou 
la rencontre d'un CTRL-N. 



CTRL-N : Af f i ch age no rma I [n i gras n i i n ve rs e ) . 

Le source Assembleur est bien documente et 
peut se passer duplications supplementaires. 
Le programme Applesoft DEMO.ECR1T.DHGR 
permet de se rendre compte des possibilites 
d'ECRIT DHGR et de lo focon do lutiliser. 

ATTENTION ! 

Les choines de caracteres renferrnent des 
caracteres de controle invisibles au listage 
et qui se tradoisent d I'impression par un 
comportement inquietant de l lmprimante. 
Un true pour le lister est de capturer le pro- 
gramme en fichier TEXTE, de le saisir dans 
un trattement de texte et d'elimtner ces 
caracteres avant impression. Une autre 
solution est apportee par le programme 
SIGNATURE d'Yvon KOENIG, 



DEMO.ECRIT.DHGR 



» 9 3A 
631 1 
2C7C 
09 3A 

99 3A 



19 REM TEST ECRIT * DHGR 
1 f 

20 D* = CHRS (4>i PRINT Of " BLOAD EC R IT. DHGR": PRINT DVBlQAD NEWSET2 , 
A* 420 9" 

22 POKE 1013,76: POKE UM4 ( 0: POKE 1615,64: REM Reuse tor i se Tampersari 
d 

30 R0T= Q: SCALE- 9 

34 : 

35 REM On po=;tiorme les switches' de passage en double haute resolut 
ion graph i que 

36 i 

4& POKE 49246*8: REM AN3 (Annunciator? of* 

42 POKE 49232,0: REM selectiDnne le mode graph a que ' C-P on- 

4*1 POKE 49239 ,0: REM select ionne la haute resolution ( HIRES on) 

46 POKE 49165,0: REM =e n ect ionne le mode SO colonnes (88 COL on) 

46 POKE 49234,?: REM select ionne le mode pleine page 

56 POKE 49153.9: REM permet de stocker di recrement dans la page graph i 

que aux i 1 i a? re ■: 6eST0&H on • 
52 P QKE 49156,9: REM Deconnecte RAMWRT 
04 P K E 49154,9: REM Deconnecte RAMRD 
56 POKE 49236,9: REM commute la memo ire principals 
5* : 

66 REM On et+ace U page double haute r^o-ution 

65 HGR : REM Efface la page graphique pr nCipate 

6t. POKE 4923', 6: REM se 1 e : t • onr,e f* page graphique Mixtllft-irt 

67 CALL 62459: REM efface U page HGR. 

63 POKE 49236,8: REM ^etour a la page HOP principle 
69 POKE 4*234,8 : REM pie me paje graphique 



•ftl 
FC1C 

IrllD 

063A 

ee3A 



99 : 

91 REM DEMONSTRATION. 



4F3D 
1A1D 
261B 

983A 
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IBB SCALE= 1: INVERSE : & PRINT " ECRIT-DHGR" AT 15,1: NORMAL : REM Ce 

titre sera #crit en hauteur double et en rrorr sur fond blanc 
195 GOSUB 580 

110 A$ = "permet d'ecrtre des textes ?n mode Double Haute Resolution.": 

SCALE= 9: & PRINT A* AT 5,26 
115 GOSUB 50 

120 A$ = "EN MODE ctZ INVERSEctN ou NORMAL" : & PRINT A* AT 19,30! REM I 

I y i yfi CTRL-Z devant INVERSE et un CTRL-N apres. 
125 GOSUB 500 

127 Hi - "clP en car *c teres GRA3 : cJGA B C DE F G H UK L . . . " 

128 fk PRINT At AT 2u f 50: GOSUB 509 

138 A* = "VERTI CALEMENT" : R0T= 3; & PRINT A$ AT 79,20: R0T= 16: & PPI 

NT A* AT 72, 138 
135 GOSUB 568 

M0 A* = "EN OBLIQUE * j R0T= 1: & PRINT AS AT 16,99: R0T= 9; fk PRINT 

A$ h t 18,86: R0T= 8 
145 GOSUB 500 

147 a* = "en DOUBLE HAUTEUR" : SCALE= 2: & PRINT At AT 48,85: SCAL£= 
150 a* = "Formules mathemat i ques : Y = axctE2 + b:<ctE3 + cxc_t_E4" : (k P 

RINT A$ AT 5,138: REM II y a un CTRL-E avant )e = caracteres a rnettr 

e en exposant 
155 GOSUB 580 

168 A* = "Equations chimiques : " CHcU 3CHct.1 20H + CHctI3C00H — > CHctI3C 
00CcJI2HcU5 + HctI20 JI : REM il y a un CTRL-I deuant Tes car ac teres 
i mettre en indice 

165 & PRINT A* AT 5,150 

166 GOSUB 508 

170 A$ = "Alphabet grec : y = c^GSxcU i yctl i - ctFC<x,y) H : fit PRINT A* 
AT 5,179: REM II y a un CTRL-G deuant S , un CTRL-I dev.ftft.1 chaque i 
et un CTRL-F devant C 
190 ik PRINT "a vous d'utiiiser toutes ce= poss i b il i tes . > . " AT 15,180, 
20 e GET R* 

201 : 

202 REM on deconnecte la double haute resolution 

263 t 

265 POKE 49247,0: REM ANQNCIATEUR oft 

211 POKE 49164,0: REM CLR80VID : 80 COL off 

212 POKE 4 0253,0: REM TXT SET : MODE TEXTE 

213 POKE 49238,8: REM LORES :L0-RES off 

214 POKE 49152,8: REM CLR80COL : 39 STORE off 
255 POKE 49236,0: REM LOWSCR:PAGE 2 off 

220 END 

500 REM BOUCLE DE TEMPOPI SATI ON 

518 FOR T = 1 TO 1090: NEXT : RETURN 



5AB1 
1B45 

564F 
1B45 

3C1F 
1645 

3817 
CAS5 

E347 
1B45 

34F2 
IB45 
D3F7 



52*2 
1B45 



2*&4 
138A 
1B45 



C7A4 
3CED 
DB34 
903A 

90 3A 
F91F 
F61D 
CD1A 
261 F 
B11A 
1A1D 
0180 

9FFF 




Si vous manquez de tt'iiips 
(ou de courage !) pour recopier 
les polices de caracteres de notre 
ami Roland JO ST, offrez-vous 
la disquette numero 12 de 
TREMPLIN MICRO ! 
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ECRIT 
DHCR 



Sauvez cette routine 
par un : 

BSAVE ECRtT.DHGR, 
AS4O00X465 



Le programme source 
{bien comments par 
I'auteur) figure sur la 
disquette n°12 de 
Tremplin Micro. 
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sennet d'krire des textes en node Double Haute Resolution. 
EH MODE W ou NORMAL 



en caracteres GRftS ■ ABCOEFGHIJKL. . . 
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EN OBLIQUE 
EH °BLl 6lJE 

Alphabet grec : y = Zxiy; - Tf(x.y) 

A mous de jouer raaintenant . . . 

Forwles nathfratiques : V = ax' + bx 3 + ex 1 * 




U 

I 

U 



OUY-HACHETTE 



Yvon 

KOENIG 
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questions... 




NEWSET2 



Roland IOST 



• M. D. q essaye d'utitiser PRO.TYPC sans lire 
{'article d'accompognement. Ce nest pas 
grave, mais c'est frustrant pour i'auteur a qui 
ion pose olors des questions ouxquelles ii a 
deja repondu. 



Oui, PRO.TYPC est relogeable. C'est 
d'ailleurs I'interet principal de ce pro- 
gromm© qui montre comment metire en 
plot© une routine entre ProDOS et ses 
buffers. 

Par centre, ANNIE que M. D. tente 
d'occoupler a PRO.TYPC (quel sera le 
fruit de cette union ?) ne dispose pas 
d r un relogeur, mais d'un tronsporteur. 
Claude AUBRY a prefer© liberer de la 
place pour son programme - a une 
ad r esse don nee - et le copier a cette 
adresse sans modification. Je vous 
garanlis que ce nest pos par igno- 
rance ! En fait, afin d© permettre de 
modifier quelques parametres depuis le 
BASIC, il etait quo$im©nt indispensable 
que I'implantation de MINIE fut fixe. 
Cela condamne simplement a mettre en 
place MINIE, puis PRO.TYPC, mais 
attention ! ne faites pos 36 BRUN 
PRO JYPC consecutifs sinon le message 
IL N Y A PLUS DE PLACE vous attend au 
coin... de I ecron ! 



Le petit programme PRCJ.FP {page &0 de T.M. n°11) 
permef de fupp rimer toutei lei man ipu la Hani Sublet 
par ProDOS (deplatemenl dei buffers,, interruption* , 
r«wt...)> II permet d'evfte-r d*t defacements de buf- 
fers obusifs. Attention ! PRO.FP sup prime eg element 
MINIE. C'est en gros I'equtvalent do FP lout DOS 3 J, 
mais SANS ettacement du BASiC ce qui permet de 
I'expcuter DANS un programme. 

• M. D. demande aussi comment recuperer. 
sous 9k>QOS, des YnfomolHsrrs sowees dons 
un fichier TXT et con tenant des vir gules. 

Il y a la bonne vteille methode GET, 6 

savoir : 

1000 ONERR GOTO 1050 {suite page 8) 
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repond 6 vos questions... (suit©) 



1010 PRINT CHR$ (4)"OPEN fichier" : PRINT 

CHft$(4)' REAO fichier ' 
1Q20 GET X$ : traitei X$ comme bon vous 

semble 

}Q4Q GOTO 1020 

1050 PRINT CHR$(4)' r CLOSE" 

On peut egatement prevoir, AVANT ecriture, 
de remplacer les virgules par un caroctere 
inemploye (Ie trema par ex em pie) et foire 
Toperation inverse en lecture. 

Si I on dispose d'une zone memo] re disponible 
capable de con ten ir Ie fichier 6 lire, on peut 
utiliser PROJYPY, version modifiee de 
PRO.TYPC pour y deposer nos precieuses vir- 
gules afin de les exploiter a loisir par la suite. 

BLOAD PRO.TYPC 
CALL - 151 

61 (3D: C8 Bl 43 D9 C3 61 DO 25 (h^dcjd mcnlkonnij 

6152 : 20 AO 61 
615D: 20 A9 61 
617E : A0 00 

bm : 98 20 AD 61 C8D0 FA B9 
61 B3 : 00 02 EA EA EA EA EA £A 
6190 : EA EA 20 AD 61 C8 CC DB 
6193 : BE DO EC EE AF 61 DO BB 
61 A0: A9 60 3D AF 61 AD DO BE 
61 AS : 60 BC D9 BE 98 99 00 60 
61 B0 : 60 
61C7 : 59 

BSAVE PROJYPY ,A$6O37 r L401 

TYPY fichier deposem vos octets en $6000, 
I'octet hout de l adresse de debut du buffer se 
trouve en $61 Al , les NOPs correspondent dun 
besoin precis de M. D. qui souharfe remplocer 
les "return" par des "linefeed" ce qui se fait 
avec lo modification suivonte : 

618A; 09 30 C9 3DD0 02 A9 8A 



Nous iransmettrons voionliers vos tettres 6 

Yvan KOENIG, mais n oubfiez pas de joindre 

une enveloppe timbree pour la reponse et un 

timbre pour ia reexpedition de vofre courrier. 

Nous vous rappetons que. si te courrier de 

TM est gratuit, nous ne pouvons r^pondre 

qu'oujf demanded resp&ctant fa regit? du /eu 

^nonc#e plus haut. _ ... 

Trempttn Micro 

OUY'HACHETTE 



* Je possede un APPLE He et une imprimante 
PANASONIC KX-PW91. Tout hnctionne bien 
avec une carte interface dans le slot I. mais il 
est impossible de faire demarrer t'imprimonte 
avec APPLEWORKS. J'ai modifie la configura- 
tion, mais ioujours rien... 

Je ne connois pas particulierement 
voire imprimante, mais il me semble 
qu'il s'ogit en fait de I'une des multiples 
"compatibles EPSON" a liaison parol- 
lele. Vous ne dites rien de ['interface 
utilisee alors que t est Id que se trouve 
presque toujaurs le problem© avec 
APPLEWORKS. Avec la version 1.2 de ce 
logiciel et les interfaces parallels "type 
EPSON", il n'y a pas de solution- ll lout 
essoyer de rem placer ('interface par un 
modele accepte par AW (GRAPPLER par 
exemple). Je vous suggere une formule 
de depannoge : utilises ( option Ajouiei 
Imprimante, Impression sur din que 
Cest gourmand en espace disque, mais 
vous pouvez, le cos ecbeant, couper votre 
texte en deux. Ensuite la version TYPE de 
la routine PRO -TYPC de Tremptin Micro 
n°9 vous permettra d'envoyer votre fexte 
formate vers votre imprimante. 

• Un petit probleme a vous soumettre : cer- 
tains logiciels reconnaissent automatique- 
ment la presence de deux iecteurs de disque t- 
tes, el le programme ne se "plante" pas sur un 
"I O ERROR' si un seut lecteur est present, 
S'ogit il dans fous les cas d un essai de lecture 
du 02 suivi dun ONERR (etc.)... RESUME... ou 
alors existe-t-il une odresse (du cote de 
$60 A...} qui per met, par un PEEK judicteux, de 
savoir s i! y a un ou deux Iecteurs dons !e port 
6 ? Une courte routine seroit lo bienvenue 
pour les programmeurs en herbe que nous 
sommes desireux damefiorer le confort et la 
convivioiite de no$ programmes. 



En BASIC votre probleme n'esl pas difficile a regler. 
DJ = CHR$(4) 

NBD = 2: REW 2 drives pordefaut 
ONERR GOT0 130 

PRINT D$ "VERIFY XYZ.D2' ; GOTO 164): 
REM Au cas ou XYZ existeroit ! 
POKE 216,0: E«=PEEK(222): IF ER = 6 THEN 
159: REM Le fichier n'existe pos mais il y a 
un disque en place 

IF EROB THEN PRINT "Erreur N Q "ER" 
ligne "PEEK(218) + 256 * PEEK(219) : END 
NBD = 1 : REM Un seul disque en place 
REM Suite du programme 



xxx 
\QQ 
110 
120 

130 



140 

ISO 
160 



(suite et fin) 



Attention ! un disque DOS 3.3 en lecteur 7 seroit Iratte comme 
une obMOCft de disque sous ProOOS. . . et vice- versa, Y.K. 
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34 22 68 
86 88 8B 
84 :C 81 
18 IC fll 
86 68 7F 
IC IC 0B 
84 IC 00 
94 IC 98 
IC 18 IC 
68 88 88 
8C 14 88 
2A 2A SB 
14 IC 08 
14 IC IB 
16 8C 66 

H ic m 

2A 14 08 

IC 18 18 
88 99 89 



3E 3E 3E 3E 7F 

L2P48 



4896 
?6BC 
2DA4 
2DF2 
84Etf 
35F6 
81CC 
6?A8 
601E 
4E98 
72*5 
4C98 
B3ED 

E 1 
1BC8 
5104 
EA7C 
5463 
72FC 
E7B8 
BBD4 
BA66 
8F?B 
C4D6 
4^4 
515C 
6688 
FBF? 



AMATEURS DE CARRES MAGIQUES...* VOS Claviers ! 

Vos preuves ne sont plus d faire. lant sur h plan des mots croises. 
que sur ceiui de linformoiique. Je crois que vous Stes aussi un fer- 
vent de routes les recreations intethctuefies. J'ai trouve dans un 
vieux magazine inhrmatique, un programme sur les carres magi- 
ques. Mais je n'prrive pas a en faire quefque chose de vatabte sur 
mon APPLE Les chitfres de'fiient et ne formeront jamais un carre 
avec une telle programmation. Ni doue en matiere de carrss magi- 
ques et tres moyen en programmation (mats fidele lecteur de T.M. je 
me suis demande si vous nauriei pas concocte dans une revue (on 
ne peut taut lire) un petit programme de ce type qui correspondrait a 
ma recherche... Peut-etre ce petit divertissement omuserait il ies 
Iecteurs de TM. (facon de reunir les civilisations qui cultiverenf, A 
trovers ie symboiisme, ces carres (sans ordinateur) et nous "moder- 
nes" qui crayons tou\ours avoir tout invente). Je continue a chercher 
une solution, mois si vous pouviez vous pencher sur ceia et m'epou- 
ier, fen serais ravi... P.C. 

AVIS AUX AMATEURS i Les metltevrs programmes seront pvbiie*. 
mais je donnerais ia preference a cetvi qui te rtvehra capable de 
reoliser des turret magiqves PAIRS mi IMPAIRS. Guy-HA CHUTE 
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Votre bibliotheque 
INFORMATIQUE 



• ARBRES, TABLES ET 
ALGORITHMES (Eyrolles) 

Les auteurs sonf fron cais el inge- 
meurs : Jacques Guyol est docteur en 
analyse numerique et Christian Vial 
docteur en hformatique. Sans doute 
en deduisez-vous qu'ils sont on ne peut 
plus qualifies pour trailer le sujet de 
cet ouvrage, et vous ovez rah on. II est 
vrai que les auteurs sont egalement 
enseignants-chercheurs.,, d'ou un livre 
parfaitement structure, constituent un 
cours magistral sur des points sou vent 
negliges par les programmers en 
herbe : 

— Resolution informatique d'un pro- 
blems (analyse et modelisation) ; 

— Langage algorithmique (schema de 
resolution} ; 

— Structures des donnees (piles, files, 
arbres, g raphes] ; 

— Diverses methodes de tri ; 

— Gestion de tables, etc. 

L'explicalion des diverses methodes de 
tri, notamment, est porticulierement 
c la ire, Des schemes la rendent me me 
ottrayante. En conclusion : sujet(s) 
aride(s), mais dont I'etude serieuse 
devroit permetfre aux lecteurs de 
mieux malt riser la prog ra mutation. 



JGuyof/CViai 



ArhresJaBles, 
et Algoritftmes 





• EXERCICES DE BASIC 
(Eyrolles) 

Nous avons dejo eu I'occasion de 
pa Her des ouv rages de Claude 
Delannoy. dont on conn alt notam- 
ment Apprendre a programmer en 
Basic et Initiation a fa program mo- 
tion (meme editeur). 

Comme le rappelle fort justement 
lavant-propos de ce nouveau 
recueil, la moltrise de la program 
motion ne s obtient que par Ja prati- 
que^ Je suis tente dajauter : et par 
I'etude dexerctces simrlaires b ceux 
du livre de Claude Delannoy. 
Certes, le Basic utilise nest pas 
I'Applesoft, mais les lecteurs de 
Tremptin Micro se retrouveront 
neanmoins en terrain connu, meme 
s'ils n'ont pas la possibility d'utiliser 
le "IF... THEN... ELSE ' que connais- 
sent aciuellement la pi u part des 
Basic. Claude Delannoy leur montre 
en effet comment remplacer cette 
instruction par deux lignes, 
J'ai beau coup oime la presentation 
do ces Exercices de Basic. Pour che- 
que exemple. l auteur donne dabord 
I e nonce du probleme a resoudre 
(pardon : a programmer), les don- 



par Clement RENARD 

nees eventuelles, les resultats. un 
tableau obtenu a la suite d un run, le 
programme lui-meme, un autre 
tableau regroupant la liste des varia- 
bles, puis une discussion du pro- 
gramme avec des conseils pour modi- 
fier ou remplacer telle ou telle instruc- 
tion. A conseiller aux debutants. 



• DEBUTERENC 

(Eyrolles) 

Nous devons a Christian Le Bras cette 
traduction francaise du livre du Califor- 
nien F, Richard Moore, L auteur nous 
signale que son outrage ne devait 
constituer, a l origine, que I un des 
chapitres d'un.monuel de musique par 
ordinaleur... mais n'en deduisez pas 
qu'il ne sadresse qu a des lecteurs 
musidens. Par centre, pour reellement 
en tirer profit, tl est bon d'etre motive 
pour la pro gram mat ion et surtout 
d'avoir acces a un ordinoteur equipe 
du systeme d'exploitation Unix. 

Debuter en C ne concerne sous doute 
qu'un petit nombre do lecteurs ,ie 
Jremplin Micro... encore que Ton 
parle serieusemeni d'un langage C sur 
nouvel Apple HGS. 
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UTILITAIRE | 



BIT MAP 




Marcel COTTINI 



PROGRAMME DEMANDE 

PAR DE NOMBREUX LECTEURS, 

TRES ATTACHES A LEUR VIEUX DOS 33 ! 



Visualiser I'occupation d'une disquette DOS 3.3 ne sera plus un probleme pour le lecteur 
de TM. Le programme BIT MAP, ecrit en langage Basic AppleSoH, occupe 15 secteurs 
sur la disquette, ll permet la visualisation de I'cccupation des secteurs de chaque piste 
au niveau de la disquette, oinsi que du nombre de secteurs libres, done disponibles a 
lutilisateur. Ces renseignements sont fournis par I'intermediaire dun graphique simu- 
lant lo surface de la disquette d considerer. Les secteurs occupes seront materialises par 
le symbole X, tandis que les secteurs libres seront laisses vierges. Au bas du graphe 
sera inscrit le nombre total de secteurs libres. Certains modules composant le corps du 
programme pourront etre integres dans vos realisations futures comme sous- 
programme appele par un GOSUB par exemple. 

['utilisation meme du programme est tres simpfe. Apres avoir lance son execution, I'uti- 
lisateur pourra opter soit pour Ig lecture des instructions, soit poursuivre le deroulement 
des operations. Dans le premier cas, un certain nombre de renseignements seront four- 
nis a Tutilisateur, afin de lui donner tous les moyens d une utilisation rationnelle. Dons 
le second cas, il vous sera offert d'etre renseigne sur I'occupation de la disquette venant 
d'etre lue, ou sur une eventuelle disquette de votre choix. 



A propos du programme 

Le programme implonte d porlir de I'odresse SQ3P0 
un petit sous-programme pour la recherche de 
ladresse de la liste des porametres pour lo gestion 
des commandes, oinsi que ladresse d'aopel a 
RWTS. A partir de I'adresse $0308 (776} debute la 
table IOB interne au progromme. 

300 : LDA £$93 Charge laccumulaleur ovec le byte de 
poids fort de ia 'able IOB. 

302 : LDY £$08 Charge le registre ¥ avec le byte de poids 
foible de la table IOB. Poinleur de la table 
IOB = $63136 

307 : RT5 Retour ou sous programme appelant, en 

I 'occurrence le programme Basic. 

Au retour du sous-programme machine (appel par 
CALL 76B) il sera necessaire de mettre a zero le con- 
tenu du registre d'etat (statu t byte). Cette operation 
est effectuie a la ligne 240 (POKE 72,0). 

A chaque consultation d'une nouvelle disquette, 
ka VTOC (Volume Table Of Contents) sera lue, 

f>uis une conversion numenque realisee oux 
ignes710 a 730. 



Les lignes 760 a 800 implantent le sous-programme 
machine a partir de I'adresse $0330 par lo routine 
de S.H. LAM qui merite quelques explications. La 
technique retenue consiste a placer dans une 
chaine de caracteres des commondes 6 destination 
du moniteur. II sera alors possible dlnstaller en 
memoirs un court programme en langage machine 
avec one relative facilite, ^installation en memoire 
s effedue en trois eta pes. 

La chaine est d'abord scindee en caracteres qui sont 
places dans le tampon du clavier (IN - 50200) les 
uns a la suite des outres. Cette operation occupe le 
tampon clavier a partir de l adresse $0200 (512 en 
decimal). Dans un deuxieme temps, le CALL - 144 
oppelle un sous-programme resident qui met en 
aeuvre les routines examinant le tampon cbvier et 
verifiant I execution des commondes inscrites dons 
la chaine de caracteres. 

En dernier lieu, £1 faut revenir au langage Basic. 
Pour ce faire, il suffit de se brancher 6 ladresse 
SD9C6, ce qui correspond a un retour au mode RUN, 
suite de I execution du programme Basic Applesoft. 
Le POKE 72,0 a lo ligne S00, met le registre d'etat a 
zero (statut byte adresse $48). 
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1 REM *******************-***** 






vTAB 2B : HTAE 5: PRINT UNE ERREUR A 




2 REM * SECTEUR5 LIBRES 






r — T V r~i i — i. r-T - a t~t r~, r~ f~ ii 

ETE RENlLriTPEE 


QP01 

ppvj 


3 REM * T9ACE BIT MAP * 






T Tftt ^1 : HTAB t-: PRINT PlTiDANT Lh ,_E 




H KcTi * LJrTKlbM! RvKlL c. + 






niiRc nil ni^k Lr 

Liur*c l'l> yiPi\t 


jn>. 


j REM * MARCEL CDTTINI (H-H) * 




290 


' ii j t ^ t mB 5: PRINT Lt L-ODE ER^tu 




6 REM t*********************** 






R EST : " : ER 


645C 


.' REM c_tJc_t Jc_tJ 




388 


END 


6188 


18 50SUE Tie: REM MET EN -LACt bOU^RDG 






REM clJrtJct^JECPlTURE 1 TDCctJctJctJ 




RAmE MACHINE 


:B4D 


326 


HOME 


2F97 


t3 TEXT : HOME 


i rt^i 


330 


GOSUB 618: REM CHARGE LA ThBLE 


1 747 


38 l^AB 5: HTAE 16: INVERSE : PPItTT " 




340 


>OSUB 7B8: REM CHARGE LA TABLE NLHERI 






3E C £ 




QUE 




46 VTAE 6: rTAB 10: PRINT DI:* rREE S 






GZ'Z'JE 500: REM CODES •^••'ERSEE 


1B45 


PACE '" 




m 


FOR I = 8 TO 34 


82F2 


jB 'vTAB / : rfTAd 18: PRINT 




37B 


X = UTC + 56 + i * 4: REM AC'RESSE BTT 






Bit*.' 




rWP PISTE I 




/G 1 ITAD O. LIT AD 1(1. CDTirr II A r~r" t ri tr i *, 

60 vTAB 8: HTAB 10: PRINT AFrKnt LA t 




388 


X9 = INT ( PEEK (X> / miXl = PEEK 




TT MAD « 
1 1 HHr 


rV 1 i 




CX3 - X0 * 16:X2 = INT ( PEEK 'X * 1 




f B >.'ihc- Ml Mb In: 1 N 1 






) / 1^- ' :X3 = PEEK (X ♦ 1) - X2 » li 


E5E4 


: -JUralAL 


•• i fir*. 


3?6 


PS* = TT$(X8) + TTt(Xn + TTt<X2) + T 




pa TC pp - i TMPW fiilTfl 1 5£i 
do it rn — i i ncJi vjuiu 1 3c 


Ht JJ 




T$<X3) 


12G9 


90 './TAR 11 • HTAft 1 ■ PRINT Mf r ril II F' 7 'JniK r 




40iJ 


rp.Pi f t m C TrV rt PTm t 

FOP 11 = 15 TO 8 STEP - 1 


12FB 


LP INPl KUL 1 1 UTit- ' U/N. f | 


7PBD 


418 


VTAB 26 - it: HTAB 4+1: PRIMT MID* 




1iJu rcPT A* ■ PPTkIT A*. TC A* — '"n* TUCkl ft 

IVV pel A»: rKlNi fl»: lr Hi - U HEN b 






(F$*,H + 1,1) 
NEXT II 


787E 


nciiD qir* fimn i 
Ji'Jp Pic : bL 1 1 L 1 1^0 


uLpj 


428 


4714 


11B lr h? 1 > N yU 1 U 70 


•S P. C fj 


436 


FS = F5 + NN(X0> + NW(Xi) + W4<X2) * 




126 '/TAP. 1j: PRINT ESPACt LiEkE C»'J DfSl< 






ntj:x3> 


B3FC 


fil IT NT CVIT" 


3136 


448 


NEXT I 


9DCB 


i n-n 'TAD i yf . DDTkIT « TuTTCC III £)A D ir r\f\C- 

;_c v!Ad 14: rKINI L' tiKt LU rAK Lc Uuz 




458 


■vTAB 2!: HTAB 4i IWERSE : PRINT H *- 




r '. U/ N 1 ; 






— > '"FS n SECTEURS "LIBRES 3 : NORMAL 


ECA1 


i *ro bt! nl: Ir ht - U HEN vTC - 46H1I : 




469 


'.TAB 24: HTAB 25: IWERSE : PRINT "CO 




6UTQ 310: RP- 1 ■•■■.= Hi'RtobE MtMOIRE 






NTINUER (tt/N>»p NOR^L 


6A55 


t T uah 

IT MAP 


3BCB 


476 


GET A*: IF A* = "0" T HEN CLEAR :PR = 




f ^fl iFTr — ,t . DCV ArSDr^CC dCaafl 

IjO '■ I L - ^PfeP 1 *: KtfT rrL'r trbt iVBttH 


B2C3 




U GOTO 26 


6777 


16c vJHlJ IP! HIRE D: rKiNi niUnt K - jLU' L 




4B0 


IF A* < > "N" THEN 46B 


EAA2 


11 ■ ■ kCT A-± . PDlkfT — : IAI ,A*\. 

fj bt! Af: rKiN' H»:b - -JhL ht->: 




490 


HOME : END 


SE51 


lr b < 3 UP i > . THtTJ BOTO 160 


E3hA 


596 


■^hB i: PRINT « PISTES" 




irO vimd iOi Ml hp j; rKJM NUTItKU i/Ki V&i 




51B 


= "SECTEURS" : FOR X = 1 TO 8: VTA 




bET A$: PRIN T hf:.' - VmL -At 






E 6 + X: HTAB li PRINT MID* tttf*,X,l 




IF D < I QR D > 2 THEN GOTO 170 


C^33 








180 105 = REM TABLE iDB 


7C4E 


520 


CA*= 11 08000600681111111111222222222 




iro rjr-L i up * i|3 * iOi w tri "iLffitr*u Uu z-l 










u 


713C 


536 


mm 3: HTAB 3: INVERSE : PRINT CAt 


0E4C 


^flfl Pnt'c mo *■ ~j r»« pp^ MriMCDn am ?\dtiic 

•.vu ru^L i UP tiL 1 " PvCTl i^LTItrL 1 u'y 1/KiVt 




54 B 


CA* = " 81^345p78901234567S90iJj45678 




itB rUKt lUc + 4,1/: HtM rlblt A ulKfc 






961234 " 


931D 




1823 




VTAB 4: HTAB 3: PRINT CA$ 


CB75 


226 POKE I OB + 5.8- REM SECTEUR k LIRE 
236 CALL 768: REM APPEL A RWTS 


3CEr 
3331 


j6tf 


vIRB ill HImd j: rHINI 








15C0 


246 POKE 72 4 fi: REM MET A B RECflSTRE D' ETA 




570 


WAE 5: FDR I - ft TD 9: HTAB 3:: PRIN 




7 PE 


A47E 




T CHR* f 46 + I): NEXT I 


25C0 


256 EP - PF_t> HOB + 13>: REM CODE ERREU 




5B9 


-TAB 15: FDR I - 8 TD 5: HTAB 3: PRIN 




p 


CDAo 




T CHR* (65 + I): NEXT I 


6CB2 


266 IP EP = * THEN ^TC = 36S64: GOTO 21% 


3649 


598 


WAS 5: FOR I - TO 16; HTAB 3?: PRT 
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NT p NEXT I: NOfimL 

680 RETURN 

610 REM cUciJCMRGE LA TABLEctJcU 

420 DIM m<!5) 

430 FOR I = e TO !5: READ TT*U): NEXT I 

640 RETURN 

650 REM clJctJOONEES OE LA TASLEctJctJ 

660 DATA "XXxy ,'XXX i: . 1l XX XV** "« 

678 DATA q X XX", "X X VX XVX 



6M DATA " XXXV XX 
696 DATA u "XXV "X V ""XV "" s 
780 REM ctJctJCGWERSION HUMERI QUE ct Jet J 
710 DIM NHttS) 

726 POP. I = TO 15: READ NEXT I 

730 RETURN 

74B REM ctJc_tJDQWES HUMERI DUES ctJctJ 

DATA 8^ 1 y 1 j2j 1 f 2^2, J j I f 2 • 2) 3 ; J, 3 j4 
760 HEX* = "399 :A9 03 A6 GG 20 &9 83 ft 

! 68 01 08 80 80 :? 33 88 90 F c FF 61 
68 08 60 01 06 61 EF DB" 
778 HEX* = HEX* ♦ " ND9C6G" : REM RET0U8 ' 

RUT/-' PROCHAINE LIGNE 
738 FOR 1 = 1 TO LEN (HEX*i: REM LONGUEU 

R DE LA CHAINE 
in POKE 511 + 1, ASC i MID* (HFJ<*J,i)) 

+ 12? : RET1 STOCKE lA CHAINE Dtftf BUFF 

ER CLAVIER 

880 NEXT : POKE "2,6: CALL - 5 44: PP' AP 

P EL SOUS PROGRAMME BUFFER 
810 RETURN 

820 REM clJctJctJIWSTRUCTIWSctJclJctJ 
630 '/TAB m HTAB 1 



BA7; 
6361 

D609 
BAID 
63B1 

7 4D7 
48D7 
49F7 
FAF7 

5009 
BCE[ k 

ffl\ 

7637 



C76E 
54 9 ? 
D1C* 



T C6i 
63B1 

0*85 



346 PRINT U CE PROGRAMME LIT LA TABLE D' OC 

CUPATION" 

850 PRINT "CUTOO DU DISK ET LA RESTITUE 

A L'ECW 

663 PRINT :: EN SECTEUR? OCCUPES 'MARQUES P 

AR DES XV 
B70 PRINT 

888 PRINT fl LE PROGRAMME AFFICHE lES PISTE 
3 -DE 6" 

890 PRINT "A 3<^ ET LES SECTEURS DES PI ST 
ES <DE F" 

m print -a 9>.les secteurs occupes sont 

.MATERIA-" 

910 PRINT "LISES PAR DES X ,LES SECTEURS 

LIBRES," 
926 PRINT "PAR DEE- VI DES," 
m PRINT 

?40 PRIhfT "POUR LINE DI5QUETTE DIFFERENTE 

DE CELLE- a : 
958 PRINT "CI, METTEZ-LA D'ABORD EN PLACE 

, PUIS 1 

960 PRINT ,: REPONDEZ 'N' A LA PROCAINE QU 

EST ION/ 
970 60SUB 998 
986 RETURN 

99§ MTAB 24: HTAB h IWERSE : PRINT u <C 

■C^TINUE OU <ESD POUR QUITTER " 

;: NORMAL 

!&efi GET A* : IF ASC (A*> = 27 THEN HOME 

i NORMAL i END 
1019 l/TAB lis HTA8 1: CALL - 958 
1026 RETURN 



480E 

5AE7 

0257 
"5BA 

F67C 

486? 

A14A 

7HEE 
77A6 
7?&A 



I c 52 
6381 



95CB 
BC3A 
6361 



Une edition d ne pas manquer ! 

Nattendez plus et plongez-vous des maintenant dans 
I'etude du langage machine. Ce n est pas aussi difficile que 
vous le pensez et I on obtient rapidement, a partir de routi- 
nes simples, mais efficaces, des resuttatssurprenants. 
La rapidite du langage machine — celui que votre Apple 
comprend le mieux — est proprement stupefiante. 



CLINS D'GEIL au 6502 DE L'APPLE 



regroupe les principales routines publiees dans les premiers 
numeros de T REM PUN MICRO, mais aussi plusieurs pro 
grammes inedits. Une disquette est foumie avec le livre 
(utiiiser le bulletin de commande, a la fin de la revue). 



Ouiiott til .1.1.1 puUNi i«ui la H* 
*m &.».M*tHini loiKbim A* l^flir Ml. 




CLINS D'CL. 

ou 6502 

DE L'APPLE 
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A55EMBLEUR 



INITIATION 



['I NSTRUCTION B IT 

UTILE ET MAL CONNUE 



Supposons une routine commune a 4 parties de votre programme. Chacune de ces 4 parties 
a une entree parti cu Here, qui positionne une variable VAR. La routine se compose : 

* de tonctions executees dans tous les cas ; 

* de fonctions qui peuvent etre modifiees ou sautees pour certaines valeurs de VAR, 
If s'agit la d'un schema courant, que I'on trouve dans presque routes les analyses. II 
illustre deux utilisations simples ef commodes de instruction BIT : 



1. Routine 6 plusieurs entrees. Si VAR prend, 
selon 1'entree. les valeurs $00, $40, S80 et 



$C0 vous pouvez ecrire : 


ENTREE1 


LOA 


£$00 




JMP 


COMMUN 


ENTREE2 


LDA 


£$40 




JMP 


COMMUN 


ENTREE3 


LDA 


£$80 




JMP 


COMMUN 


ENTREE4 


LDA 


£$CQ 




STA 


VAR 


s gagnerez de la place en ecr 


VAR 


EQLJ 


$810 


ENTREE! 


LDA 


£$00 




DFB 


$2C 


ENTREE2 


LDA 


£$40 




DFB 


$2C 


ENTREE3 


LDA 


£$80 




DFB 


$2C 


ENTREE4 


LDA 


£$C0 




STA 


VAR 



Une fois assemble, ce code vous donnera (avec 
vos entrees respectivement en $820, $823, $826 



et $829) : 












820 : 


A9 


00 




LDA 


£$00 


822 ; 


2C 


A9 


40 


BIT 


$40A9 


825: 


2C 


A9 


30 


BIT 


$80A9 


828: 


2C 


A9 


CO 


BIT 


SC0A9 


B2B: 


8D 


10 


OS 


STA 


$08)0 


820: 


A9 


00 


2C 


A9 40 


2C A9 


828: 


2C 


A9 


ca 


BD 10 


08 



Apres chaque entree, sauf la derniere, une ou 
plusieurs instructions BIT s'interposent. Elles 
peuvent modifier la retenue ou le bit V du regis- 
tre d'etat, Mais comme vous ne teste; immedia- 
tement ni Tune r\i I'autre, le deroulement de 
votre programme n en sera pas perturbe. 

2. Tester une variable sons modifier les va- 
leurs de Ac, de X ou de Y. 
Nous ovons donne a VAR des valeurs qui prepa- 
red le test par 1'instructiort BIT. En eflet, avec 
ces valeurs, si vous ecrivez BIT VAR, BMI vous 
branche sur les deux valeurs negatives $80 et 
$C0 (entrees 3 et 4). Entre elles r BVC vous bran- 
che sur la valeur $80 (bit 6 clear, la valeur $80 
s'ecrit sur son octet avec le bit 7 a 1 et les autres 
a 0). Parallelement, BPL vous branche sur les 
deux valeurs positives $00 et $40, entre lesquel- 
les BVC vous departage, 

Le test complet de VAR, pour choisir par exem- 
ple entre 4 sorties, s'ecrira : 

BIT VAR I 

BMI NEGATIF NEGATIF BVC SORTIE3 

JMP SOKTIE4 



BVC 
JMP 



SORTIE1 
SORT1E2 



Recommandation importonte : apres le test 
d'une variable par BIT, faites vos branchements 
uniquement avec BMI. BPL, BVC et BVS, Si vous 
avez des "bugs" pensez 6 verifier que vous ovez 
bien tenu compte de cette recommandation, 

Madeleine HODE r outeyr de GRlflOUILLE. 
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MUSIQUE 



Roland |OST 



Esc 



1 





3 


4 


5 


6 


7 


8 


9 


9 












Mi 1 






n» 


Si' 











41 



Ctrl 



ft 



Id 



1 



Del 



Si 


DO 




Mi 


FJ 


SDl 


Ll 


Si 


k 


?! 


Mi 




A 


7 

u 


E 


R 


T 


1 


IJ 


1 


0! 


P 


A 


U 




R[> 


Mi 1 




Fa* 




Si> 






Mi' 


'/ 

A 


I 


Q 


S 


D 


F 


G 


H 


J 


K 


L 


H 


d 






ORGUE 

sur Apple 

Dans le numero 6 de Tremplin Micro, un 
lecteur demandait un programme trans- 
formant le clavier de I'Apple en orgue. En 
void un pour tous les ledeurs qui n'ont 
pas un ENSONIQ dans leur micro, La dis- 
position des touches rappefle celle d J un 
piano (cf. -figure). 



Le haut-parleur de I'Apple, s'il est mis sous tension a infervalles judicieux, perm el de gene- 
rer des notes sur pfusieurs octaves : 



NOTE 


FREQUENCE 


Octave 1 


Octave 2 


Oct a vt? :j 


dec, 


hew. 


dec. 


hew. 


dec. 


hew. 


Sol 


128 I $80 




$40 


32 


520 


Fa£/Solb 


136 


S8B 


68 


$44 


34 


$22 


Fa 


145 


$91 


72 


$48 


36 


$24 


Mi 


152 


$98 


76 


$4C 


3B 


526 


Re£ Mib 


162 


SA2 


ai 


$51 


40 


$28 


Re 


172 


SAC 


66 


S56 


43 


$2B 


Do£ Reb ■ 


182 


$66 


91 


$5B 


45 


S2D 


Do 


192 


SCO 


96 


$69 


48 


$30 


Si 


204 


$te 


102 


$66 


51 


$33 


Lo£/Sib 


216 


$DS 


108 


$6C 


54 


$36 


La 


230 


SE6 


115 


$73 


57 


$39 


Sol£/Lob 


242 


SF2 


121 


$79 


60 


$3C 


Sol 


255 


$FF 


123 


$80 


64 


$4Q 



Ces voleurs se retrouvent dons la table des frequences. 

HHHiimt<«HHIIHIHIIIII|N|||| 

TRCMPLLN AAICRO 



PROGRAMME : 

300 : 20 53 D5 AA EG QD DO 01 

308 : 60 AO 50 84 Ql BC 30 03 

310 : F0 EE 84 06 2C 30 CO 83 

318 : DO 04 C6 07 F0 E2 CA DQ 

320 : F6 A6 06 4C 14 03 00 QQ 



TABU DES FREQUENCES : 



328 : 


00 


00 


OO 


00 


00 


00 


00 


00 


330 ; 


00 


00 


00 


00 


00 


00 


00 


00 


338 : 


00 


00 


00 


00 


00 


00 


00 


00 


340 : 


00 


00 


00 


00 


00 


00 


00 


00 


348 : 


00 


00 


00 


00 


00 


00 


00 


00 


350 : 


00 


36 


5B 


00 


00 


00 


00 


51 


358 : 


00 


28 


19 


00 


66 


00 


72 


66 


360 : 


2D 


00 


00 


5B 


51 


00 


44 


3C 


368 : 


36 


00 


56 


60 


CC 


4C 


00 


00 


370 : 


2D 


66 


80 


98 


A2 


56 


00 


88 


378 : 


79 


33 


6C 


00 


5B 


51 


73 


30 


300 . 


2B 


00 


4C 


©6 


48 


39 


91 


CO 


388 


AC 


40 


60 


28 





44 


26 


00 


390 : 


00 


00 


00 


00 


00 


00 





00 


398 : 


00 


00 


00 


00 


00 


00 


00 


00 


3A0 ; 


00 


IB 


00 


1C 


ID 


IE 


00 


QQ 


3AS: 


00 


IF 


QQ 


00 


20 


3C 


00 


22 



\ 



t 

JO 

\ 



Sauvegarde par BSAVE ORGUE. G,A$3O0 ,L$BQ 



is 



Comment utiliser ORGUE ? 

Contentez-vous de taper le petit programme ci- 
contre. Il se chorgero d'appeler la routine en Ian 
gage machine (ORGUE. 0) et I'image du clavier... 
si vous avez eu le ban gout de la composer. Vous 
pouvez evidemment utiliser ORGUE sans le dessin 
du clavier, mais c'est moins facile. ORGUE. IM 
figure sur la disquette T rem pirn Micro (33 sec- 
t^urs) Notez que J a frappe de RETURN decon- 
necte immediatement le clavier musical. 





ORGUE. DEMO 


in 


tcvt . uriMP ■ PRINT rHRU (91 V HCiR 


20 


POKE 49234,0: REM PAS DE TEXTE 


30 


PRINT CHR$ (4) 'BLOAD ORGUE. 0" 


40 


PRINT CHR$ (4)"BLOAD ORGUE. IM, 




A$2O0O" 


50 


CALL 768 


60 


TEXT ; HOME ■ 



Extensions possibles pour programme urs courageux : 

Ce programme paurrait §tre modifie ou ameliore de plusieurs facons, Gageons que les Lectrices et 
les Lecteurs de TM vont s'y essoyer ! 
. . Chongement docfove par pression d une 3. Souvegarde du morceau interprets avec 

touch© POM ou TAB ■ possibilite de rappel (interessant) ; 

2. Possibilite de changer de tempo ; 4, Affichoge des notes en made graphique. 



Assemblage par ProCODE 














* Source 


du pr ocjr amme 


de- generation de sons: 










1 
2 


* 


















3 


* ORGUE 


















4 


ft 


















5 


DUREE 


EQU 


*07 














6 


FREQU. 


EQU 


*0* 














7 


* 


















8 


INCHR 


EQU 






Entree dun car act ere 










9 


SPKR 


EQU 


*C030 


S 


Active le haut-parleur 












* 


















1 1 




ORG 


*30 














12 


* 












20 


53 


D5 


13 


ORGUE 


J'z.F 


INCHR 


I 


saisie d'une touche 


* 363: 


AA 






14 




TAX 




5 


au c 1 a u t e r . 


0394: 


E0 


0D 




15 




CPX 


£*0D 


p 


e=t-ce un < RETURN> ? 


9304: 


D8 


01 




16 




Et JE 


□ 1 


1 


non . on c on t i nu* . 


30 8 : 


6© 






17 




RTS 




■ 


ou i , retour au BASIC. 


030?: 


A8 


50 




18 


01 


LDY 




■ 
» 


duree d'une note 


30B : 


84 


07 




19 




STY 


DUREE 






300: 


BC 


30 


03 


20 




LDY 


$330, X 


5 


recherche dans tab 1 e 


310: 


F0 


EE 




21 




BEQ 


ORGUE 




si , attente touche. 


0312: 


84 


04 




22 




STY 


FREQU. 


! 




9 314: 


2C 


30 


Cd 


23 


02 


BIT 


SPKR 


1 


active le haut-paMeur 


8317: 


88 






2 A 


03 


DEY 




J 




0318: 


D0 


04 




25 


04 


BNE 


□R6UE2 






831A: 


C6 


07 




26 




DEC 


DUR£E 






631C: 


Fy 


E2 




27 




BEQ 


□RGUE 






&31E: 


CA 






28 


0R3UE2 


DE>: 








031F: 


D0 


F6 




29 




BNE 


03 






321 : 


A6 


06 




39 




LDY 


FREQU . 






0323: 


4C 


14 


03 


31 






02 




bouc 1 e obi i q4 e . u 
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G-UY-HACHETTE 



DIDACTIQUE 



Marcel COTTINI 



COMMUTATEURS LOCIQUES 

Avertissement au lecteur 

Le but de cet article est de lever le voile sur I'aspect souvent flou de lo 
program mat ion de fa memoire vive, principale ou auxiliaire, Tous les 
ingredients sont donnes pour que le programmeur averti puisse avoir 
acces a ce type de programmation sans pour autant rentrer dans des 
details complexes et souvent mals acceptes par le lecteur. 



Pourquoi une memoire 
auxiliaire ? 

L Apple li dons so version de 
base integre sur sa carte mere 
des "chips" ayant une copocite de 
memoire vive de 64 Ko, disponi- 
bfes 6 I'utilisateur Le micropro 
cesseur de la premiere genera- 
tion, un 65Q2, ne permet d'adres 
ser que 65536 [2 ib ) adresses de la 
memoire, les 64 Ko se trouvant 
sur la carte mere. Tres vite, le 
concepteur sest aperqu que sa 
"machine" monquait de place 
pour implonter des programmes 
devenant de plus en pius perfor 
marts. L evolution dans le 
domaine informatique s'effectue 
suivont une courbe oscen&ian- 
nelle ires accentuee, par le fait 
du bourn technologique mis au 
service du grand public, C'est 
ainsi que I on trouve de& cartes 
interfaces d'extension memoire 
de toutes les tallies (64 Ko, 128 
Ko, 512 Ko, etc.]. 
Une question vient olors a 
I esprit ; si le microprocesseur 
6502 (ou le 65CQ2 de I Apple Ik) 
ne peut adresser que 64 Ko, 6 
quoi servent les 64 Ko de lo 
memoire auxiliaire ? Une 
deuxieme question, plus perti- 
nente que la precedents pose le 



probleme du precede devant etre 
mis en place pour atteindre cette 
memoire auxiliaire. 

Le mecanisme est en fort tres sim- 
ple. II suffit d'imaginer que les 
deux memoires sont olignees 
Tune en face de ( autre et sepa- 
rees par une ligne fictive et ima- 
ginaire, comme deux rangees de 
maisons separees par une rue. 
Pour passer d une rangee de mo 
sons a celle d'en face, il suffit de 
(ranchir la rue qui les separe, 
Pour permettre ou processeur do 
dialoguer soit avec la memoire 
principale, soit avec la memoire 
auxiliaire, il suffit d'actionner ce 
qu'on oppelle un commutoteur 
logique. Pour ceux qui pratiquent 
I'Apple // depuis un certain 
temps, ces commutoteurs sont 
souvent appeles des "switches". 
L Apple H est pourvu r de par sa 
conception dorigine, de toute 
une serie de commutoteurs, dont 
les differents aspects seront abor- 
des dons cet article. Ces commu- 
toteurs sont implantes dans lo 
ROM (memoire morte) et places 
en parallele sur lo RAM {memoire 
vive). 

Definition 

Un commutoteur bgique permet 



de selectionner ou commuter un 
endrait determine de I'espace 
memoire (RAM — memoire vive 
— ou ROM — memoire morte). 
C'est ainsi que votre Apple lie 
avec une carte 80 colonnes eten 
due en place ou le tic, possedent 
128 Kode memoire vive (RAM). La 
RAM se report it en 64 Ko de 
memoire principale et 64 Ko de 
memoire auxiliaire. Cheque zone 
de cet espace peut etre program- 
mee par l utilisoteur averti soit en 
lecture, soit en ecriture, ou 
encore en lecture, ecriture, par le 
simple fait d'activer des commu- 
toteurs logiques. Ces differents 
modes sont selectionnes en ecri 
vant ou en Itsant a certaines 
odresses qui servent de point 
d'entree aux commutoteurs 
logiques, 

La pluport de ces commutaleurs 
ont trois points den trees : 

1 . un pour les connecter ; 

2. un outre pour les debrancher ; 

3. un troisieme pour lire I'etot du 
commutoteur. 

Ces commutoteurs permettent de 
switcher' (commuter) la 
memoire principale ou la 
memoire auxiliaire a partir d'une 
interface qui pourra etre soit un 

(suite page 18). 
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progromme Bo$ic, $oit un pro 
gramme assembleur Le fait 
d'ecrire (par POKE en Basic, ITA 
en binaire) ou de lire (par PEEK en 
Basic, LDA en binaire) dans cer- 
taines odresses memoire, rensei- 
gne le systeme sur ce qu'il doit 
afficher a lecran et ou il doit lire 
ou ecrire les donnees qui iui sont 
necessaires : memoire principale 
et, ou memoire auxiiiaire. 
L'utilisation de ces commutateurs 
logiques est cependant reservee 
oux programmeurs a vert is. Cer- 
tains fogtciels du commerce ont 
ete developpes et concus pour ce 
genre de manipulation. Une mau- 
voise utilisation ou un manque de 



pratique peut rendre I execution 
d'un programme aleatoire et 
meme Iui faire perdre des 
donnees. 

Commutation des 
differents modes 

W existe deux types de commu- 
trjteurs : 

1 . les commutateurs d affichage ; 

2. les commutateurs affectant la 
memoire, 

Ces differents modes de commu- 
tation sont actives en lisant ou en 
ecrivant a certaines adresses de 
la memoire servant de point 
d entree aux commutateurs logi- 



ques. En temp$ normal, les com- 
mutateurs sont geres par les ins- 
tructions et commanded a part ir 
d'un programme impionte en 
memoire centrale ou a portir de 
la ROM residente (AppteSoft ou 
Moniteur). En effet, certaines rou- 
tines internes de la memoire 
morte par exemple. utilisent ces 
commutateurs pour leurs propres 
besoins. Les sous-programmes 
ML I de PRODOS, loges dans les 1 6 
Ko de la memoire haute, utilisent 
ce mode de commutation pendant 
execution d'un programme, pour 
ecrire ou lire des donnees so it 
dans la memoire principale, soit 
dans la memoire ouxiliaire. 



Tableau des zones memoire 



Mode de visualisation 


page 


Adresse basse 


Adresse haute 


Texte 40 colonnes 


l 


$Q4QQ 


ou 


1024 


$07 FF 


ou 


2047 


Graphique basse resolution 


2 


50800 


ou 


2Q48 


S08FF 


ou 


3071 


Texte 80 colonnes 


1 


$0400 


ou 


1024 


$07FF 


ou 


2047 


Graphique haute resolution 


1 


S2000 


ou 


8192 


S3FFF 


ou 


16383 


- & Ko 


2 


$-1000 


ou 


16384 


$5FFF 


ou 


24575 


Graphique haute resolution 
















- 16 Ko 


1 


$20@0 


ou 


8192 


$3FFF 


ou 


16383 



Tableau des commutateurs d'affichage 



Nom 


Signification 


Adresse 




Com. 


Lira 


Hex 


Decimal 


Ecrire 


TEXT 


Ecran text© 


SC051 


- 16303 


o n 






bcran graphique 


SC050 


- 16304 


off 






Lecture de I'etot de TEXT 


SCO 1 A 


- 16358 




lire 


MIXED 


Texte du bas du graphique 


$C053 


- 16301 


o n 






Graphique pleine page 


SC052 


- 16302 


off 






Lecture de MIXED 


SCG1 B 


- 16357 




lire 


PAGE2 


Affichage de la page 2 


$C055 


- 16299 


on 






Affichage de la page 1 


$C054 


- 1630O 


off 






Lecture de PAGE2 


$C01C 


- 16356 




fire 


HIRES 


Graphique haute resolution 


$C057 


- 16297 


on 






Graphique basse resolution 


SCG56 


- 16298 


off 






Lecture de HIRES 


SCCJl D 


- 16255 




lire 


8UCOL 


Texte 80 colonnes 


SCO0D 


- 16371 


on 


ecrire 




Texte 40 colonnes 


scaoc 


- 16372 


off 


ecrire 




Lecture de SOCOL 


SCO IF 


- 16353 




lire 


80STORE 


Acces page 1 auxj Moire 


SC001 


- 16383 


o n 


ecrire 




Retour memoire principale 


SCO00 


- 16384 


off 


ecrire 




Lire l efat de B0 STORE 


SCO 18 


- 16360 




lire 



GUY-HACHETTE 



Tableau des commutateurs memoires 



Horn 


signification 


Adresse 


Com 

• Will. 


Lire 


Hex 


Decimal 


Ecrire 


RAMRD 


Lecture meinoire auxiliaire 
Lecture memoirs principals 
Lire le commutoteur R AMR D 


SC003 
$C002 
SC0 13 


- 16381 

- 16382 

- 16365 


o n 
off 


ec r j re 
ecrire 
1 i rc 


RAMWRT 


Ecrifure en memoire AUX 
Ecriture en memoire MAIN 
Lire le commutoteur RAMWRT 


SCO 05 
$C004 
$CO 14 


- 16379 

- 163Q0 

- 16354 


o n 
off 


eor i re 
ecrire 
1 ire 


ALTZP 


Commute pile, page AUX 
Commute pile, page MAIN 
Lire le commutoteur ALTZP 


$CO09 

Scooe 

$CO 16 


- 16373 

- 16374 

- 16352 


o n 
off 


ecrire 
ecrire 
lire 


agSTORE 


Acces page 1 AUX 

Pour utiliser R AM RD/ RAMWRT 

Lire le commutoteur 80 STORE 


SCO 01 
$C000 
SCO 18 


- 16383 

- 16384 

- 16360 


o n 
off 


ecrire 
ecrire 
lire ' 


PAGE2 


Acces memoire AUX 

Acces memoire MAIN 

Lire le com mutoteur PAOE2 


$C055 
$C054 
SC01C 


- 16299 

- I63O0 

- 16356 


O i i 

off 


lire 


HIRES 


Acces page 1 graphique AUX 
Pour utiliser RAMRD/R AMWRT 
Lire le commutoteur HIRES 


SCO 5 7 
SC056 
SC01 D 


- 16297 

- 1629S 

- 16355 


o n 
off 


1 ire 



AUX = Memoir© auxiliaire MAIN = Memoire principals. 



Remarques 

MIXED et HIRES nont d'effel sur la 
visualisation que lorsque TEXT est 
"off". La fonction PAGE2 est diffe- 
rent© si 80 STORE est ' on \ Lors- 
que 805TORE est connects, 
PAGE2 n'a plus d'effet sur la 
visualisation, il permet au praces- 
seur dadresser, sait la page 1 de 
la memoire principale (MAIN), 
soil la page I de la memoire auxi- 
liary (AUX). 

Pour actionner PAGE2 et 
80STORE, il est necessatrede pas- 
ser par un programme, cor 
I Apple // utilise ces commuto 
teurs logiques lorsque celui-ci est 
en mode 80 colonnes. 
La page 1 texte de la memoire 
principale (MAIN), a sa copie en 
memoire auxiliaire (AUX) aux 
memes a dresses. Pour stacker 
des informations en page 1 AUX r 
iJ faut connecter 80STORE en ecri- 
vant □ ladresse $C001 (-16383), 
puis actionner PAGE2 en ecrivont 
ou en lisont a l adresse $C055 
(- 16299), Les premiers caraderes 
qui apparaissent en colonnes 
impaires sent en memoire princi- 
pale, les suivants, colonnes 



paires, sort en memoire auxi- 
liaire aux memes odresses. 

Les commutateurs d'occes aux 
pages d'ecron ont priorite sur les 
commutateurs RAMRD et 
RAMWRT, 

La ROM AppSeSoft est en paral- 
lel ovec la Bank switched 
memory. Son activation est inde 
pendonte de la position des com 
mutateurs (voir ie tableau des 
commutateurs memoires). 

En mode graphique haute resolu- 
tion 16 Ko (560 points horizon- 
tayx), on visualise 40 paires de 14 
points par ligne de graphique, les 
7 premiers de chaque poire etant 
en memoire auxiliaire, les 7 sui- 
vonts en memoire principale. 
Ainsi les points Q 6 6, 14 d 20. .. 
545 6 552 d une meme Jigne sont 
implanies en page 1 AUX, tandis 
que tes points 7 a 13, 21 o 2fl„, 
553 a 560 d une meme ligne sont 
implontes en page 1 MAIN. 

Pour placer des informations 
directement dons fa page 1 haute 
resolution AUX, branches 
fcWOftE et HIRES, puis PAGE2. 

La houte resolution 8 Ko utilise la 



visualisation normale, a savoir la 
memoire principale (HGR — 
adresses $2000 6 $3FFF ou HGR2 

— adresses $4000 6 S5FFF). 

Le texte 80 colonnes et la haute 
resolution 16 Ko utilisent d la fois 
la memoire principale et la 
memoire auxiliaire. Ce type de 
graphique designe les cinq modes 
de visualisation avec ('utilisation 
d une carte couleur du type chat 
mauve eve- En mode d'affichoge 
80 colonnes, les caracteres en 
colonnes impaires sont inscrits en 
memoire principal© et ceux des 
colonnes paires en memoire 
auxiliaire. 

commutation lie la 
Bankswitch sous ProDOS 

- 16 Ko du hout de la memoire (RAM) 
Le f ichier PRODOS, une fois la dis- 
quette system© bootee, se loge 
dans la carte langage d un Apple 
//, ou en haut de la memoire vive 
d'un Apple He ou ffc. II occupe 
alors les 16 Ka du hauf de la 
memoire vive. Comme les adres- 
ses SDO00-SFFFF ne camptobili- 
sent que 12 Ko, on pourrait se 

(suite page 20). 
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demander ou se logent les 4 Ko 
manqjants. C'est la bank 2 qui est 
utilisee conjointement avec la 
bonk 1 par simple commutation 
alternee des deux banks, faction 
des commutateurs logiques per- 
met, entre autres, d effect jer soit 
une lecture, soit one ecriture, soit 
encore une lecture et ecriture de 
f'espace memoire du haul de la 
RAM. 



Situation typique de la 
memoire principale (W Ko) 

ROM ; $DO90-$FFFF * 
Bank 1 : $DG0Q$DFFF 
Bank 2 : SDQOO SDFFF 

* (AppleSoft + Moniteur) 

Situation typique de la 
memoire auxiliaire (M Ko) 

RAM : $DOQ0-$FFFF ■ 
Bank 1 : $DfJGQ$DFFF * 
Bank 2 : SDQ0Q-$DFFF * 

* (Disponible a I'utilisateur) 

Activation des 
commutateurs 

SDOOO-SDFFF Bank 1 avec 4 Ko 
SDffOG-SDFFF Sank 2 avec 4 Ko 
$E0O0 SFFFF Bank 1 et 2 avec 8 Ko 



Modes de commutation de la Memory Bank 



Commutateurs 


Bank 1 


Bank 2 


ROM 


2 X LDA SC080 


R/W 






2 X LDA $CQ 83 




R/W 




2 X LDA $C0S9 


W 




R 


2 X LDA $C08l 




W 


R 



Legend* : R/W = Lecture/ ecriture R - Lecture W = Ecriture 

Adresses de eontrole : 

$C0IH (- 14256) Select ionne la RAM en lecture et commute 9a Bank 2. 

Protege fa RAM contre lecriture. 
$C081 (- 16255) Selectionne la ROM en lecture et commute la Bonk 2. 

Autofise I ecriture sur la RAM si la commutation est 

effectuee deux fois {Ex. : LOA$C081 , LDA SC081). 
$C0S2 (- 16254) Selectionne la ROM en lecture et commute to Bank 2. 

Protege la RAM contre l ecriture. 
j- 1425J) Selectionne la RAM en lecture et commute la Bank 2. 

Autorise lecriture sur la RAM si la commutation est 

effectuee deux fois. 
SCO IN {- 1 624B) Selectionne lo RAM en lecture et commute lo Bank 1 . 

Protege la RAM contre l ecriture. 
SC089 (- 16247) Selectionne la ROM en lecture et commute la Bank 1 . 

Auto rise lecriture sur lo RAM si la commutation est 

effectuee deux foi&, 
SCS8A (- 16246) Selectionne la ROM en lecture et commute lo Bank I. 

Protege contre I'ecrituresur la RAM. 
SCOBfl (- 16245) Selectionne la RAM en lecture et commute la Bonk 1. 

Autorise l ecriture sur lo RAM si lo commutation est 

effectuee deux fois. 
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TRUCS et ASTUCES 


PROGRAMME : La Bo?te aux idees (Tremplin Micro n°8) 


QUESTION : Comment Imprimer les lignes dans lesquelles se trouve le mot cherche ? 


REPONS 


E : En ajoutant ces 3 lignes au programme. Pour obfemr ('impression, taper 




CTRL-I au lieu de Toption 2. 




1 156 IAA = 0: IF R$ = CHR$ (9) THEN R$ = "2":iM = 1 




541 IF IM THEN PRINT D$"PR£1": PRINT : PRINT CHR$ (9)"96N": 


1 


PRINT CHR$ (27)"E"; CHR$ {27)"L01<T: PRINT 




546 IF IAA THEN PRINT : PRINT D$"PR£0": PRINT D$"PR£3": PRINT : 




GOTO 125 


Attention ! Supprimer deux lignes de REM (190 et 233) pour que lo longueur du programme ne depasse pas 5500, 
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LE 65C816 



Nous publions, dans ce numero, la suite et la fin de notre etude sur le 
65C816, microprocesseur qui equipe I'APPLE UGS. 



LES REGISTRES DU 

MICROPROCESSEUR 65C816 



Differentes fonctions du 65C816 

Gene routes 

Le 65C816 (ou 65C802) est un microprocesseur aux 
possrbj I ites tres varices. C'est ainsi qu'il permet lo 
gestion de registres 16 bits tout en ay ant la copacite 
d'adresser 16 Mo de memoire vtve jcompteur ordi- 
nal sur 24 bits), Une configuration materiel le inte- 
grant ce type de processeur permet une program- 
motion plus rapide, tout en gordont lacces aux pro- 
grammes existants pour le 6502, La selection entre 
l un ou 1'autre mode (emulation ou native) s effect ue 
por ladressage du bit E du registre detat. Cette 
operation est realisee par ^instruction XCE, 
echonge du bit de retenue (C) et du bit d'emulation 
(£)♦ C'est en somme un excellent produit pour la 
gamme des 16 bits grand public. Le bus de donnees 
est de 8 bits de large, tandis que les registres inter- 
nes sont de 16 bits. 

Description des fonctions du GSCSIG 

Instructions relatives aux registres et decodage, Les 
instructions machine, suivant le mode d'adressage 
requis, sont traitees en codes machine, avont d'etre 
vehiculees vers I'entree du microprocesseur. Plu- 
sieurs instructions sont reliees entre efles et 
envoyees sur le bus de donnees par l intermediotre 
du registre concerns. Cette instruction est alors 
decodee suivant une reference temps (horloge du 
processeur] et une reference de procedure (circuits 
d interruption du processeur}. 



unite decontrol temps 
(Timing Control Unit - TCU) 

Le circuit horloge maintient en kigne chaque instruc- 
tion et lui attribue un certain temps evalue en cycles 
machine. Cest ainsi que hnstruction RT5 (retour de 
sous- pro gramme) necessite un temps de 6 cycles 
pour arriver 6 lerme. Pour chaque ins-lruction, le 
facteur temps (TCU) est nul au depart, le code 
machine est recherche puis execute suivont un cer- 
tain nombre de cycles temps. Un ou plusieurs cycles 
machine sont requis pour chaque instruction 
machine. Chaque transfen de donnees est lie d une 
part au decodoge de I instruction, puis a son execu- 
tion via un reglstre suivant une notion de temps 
(cycle machine). 

Unite arithmetique et logique 
(Arithmetic and Logic Unit - ALU) 

Toutes les operations arithmetiques et logiques sont 
traitees par l intermediaire d'un module interne du 
microprocesseur, d une tai lie de 16 bits (ALU — 16 
bits), Lors d operations odditionnelles de donnees, 
le module ALU cakule I'adresse effective pour les 
□dressages des modes relatifs et indexes. Le resul 
tot de cette operation sur ce type de donnees est 
range soit a une odresse memoire specifies au 
prealable, soit dans un registre interne du process 
seur. La retenue, Carry Flag, sero positionnee sui- 
vant !e resul tat de I'operatkm effectuee par le 
module ALU. Elle pourro etre soit negative ou posi- 
tive, soit deborder. (suite page 22) 
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Registres internes du 65C616 

Registres internes (internal Registers) 

ffs se differencient du 6502 par leur nombre, leur 
taille et leur organisation, On peut sender la struc- 
ture des registres en trois potties, chacune ayant 
une taille de 8 bits de large. La faille equivalent© de 
chaque registre sera celte determinee par le mode 
octuel (native : E = 0, ou emulation ; E = 1), 
Le 65C816 comporte un registre supplemented par 
rapport au 6502 (Direct Register), II est du format 16 
bits. Deux registres annexes, Program Bank Regis- 
ter et Data Bank Register, autorisent respective- 
ment une extension du registre compteur ordinal 
(PC) et des registres d'index X et Y. Program Bank 
Register associe au compteur ordinal (PC) permet 
alors de trailer une adresse memoire sur 24 bits 
(SQ00O00 a SFFFFFF). Data Bank Register associe 
aux registres 16 bits X ou Y, permet de pointer une 
zone memoire sur 24 bits ($000000 a $FFFFFF}, 

Registres de programmation 
du65C816(Ou65C802) 

8 Hits 8 KHCS 8 fclltrs 



Data Bonk Reg. 
DBR 





Registre X High , j, Registre X Low 
XH XI 


Registre V High | Registre Y Low 
f H VL 


M 


Pointeur de pile |, Pointeur de pile 
SH SL 




AKumulatewr High ,|, Accumulator Low 
AH(I} AL(A] 


Program Sank Reg. 

m 


Compteur ordinal . J. Compteur ordinal 
PCH PCL 


00 


Registre Direct 1 Registre Direct 
DH DL 




(P) Registre detat 



Detail du registre d'etat P du microprocesseur : 



Status Register (P) 





1 


8 




1 


N 


V 


M 


X 


D 


1 


1 


C 



1 Toujours o 1 si E = 1 , 

B Break : Remise a de la pile apres interruption si 
E = 1. 

E Mode emulation ~ Native ou 1 = Emulation. 



N 


Negative 






Bit du signe 


= 1 si resullat est n&gatif . 


V 


Overflow 


= 1 si le resullat est celui 




Debordemenl 


ottendu 




Mprnnrv Arrumiiinlnr ^p p'1 


— i ej rnrnmutp pn made 8 

1 Ot 1_ "m 1 1 P 1 1 1 1 U 1 tr CI 1 IIIWUC v 




bits. 




Selection de lo memoire ou de A 


= si commute en mode 






16 bits. 


X 


Index Reg. Select 


= 1 si commute en 8 bits, 




Selection du regisie d'index 


= si commute en 16 bits. 


D 


Decimal Mode 


= 1 si commute en mode 




Mode decimal 


decimal. 


1 


IRQ Disable 






Inhibition des interruptions 


= 1 si interruption inhibee 


Z 


Zero 






Resultat nul 


= 1 si le resultat est nuL 


c 


Carry 


= 1 si le resultat est celui 




Revenue 


attendu. 



Accumulates 
(Accumulator - c (fl + b» 

Laccumulateur est un registre a usage general uti- 
lise pour effectuer des operations arithmetiques ou 
logiques : charger (LDA), ou souvegarder (STA) une 
donnee ou comme operant© (ROl, ROR, etc.]. 
Mode native (E = 0). Lorsque le bit M, du registre 
d'etat, selection de la memoire (Memory Select] est 
nul (W = 0), laccumulateur travaille sur des don 
nees de 16 bits de large. 

Mode emulation (E = 1), Lorsque le bit M du regis- 
tre d'etat a comme valeur un (M = I), I'accumula- 
teur travaille sur des donnees de 8 bits de large, 
Dans ce dernier cas, la partie poids fort de I 'accumula- 
tes (Ace High — B) sera sauvegardee mo men tone - 
ment en liaison avec une instruction interne du proces- 
seur (SWAP Accumulator — instruction SWA). 
En mode 8 bits (emulation — A) I'occumulateur est 
denomme registre A. II est alors compatible avec le 
mode du 6502, En mode 16 bits (native — C), e'est 
sous registre C qu'on le retmuve, avec comme octet 
de poids faible (A — Acc, Low] et comme octet de 
poids fort (B — Acc. High]. 

Registre page tie donnees 
(Data Bank Register - DBR) 

C'est un registre annexe d une faille de 8 bits, utilise 
en association soil avec le registre d'index X (16 
bits), soit avec le registre d'index Y (16 bits), pour 



22 



GUY-HACHCTTE 



T SI 
in 

if 

elui 
JeS 
ode 

s, 

>its. 
ode 

>ee. 
elui 



uti- 
ou 
jne 

itre 
est 
ign- 

gis- 
jla- 

ula- 
in fi- 
res- 

est 
c le 
est 
ctet 



ills* 
:i6 

tour 



TTE 



adresser par multiplexage une page memoire sur 24 
bits. Dans ce cos. D8R contient I'octet de poids fori 
[8 bits) et les registres X ou Y les 16 bits les plus a 
droite [YH + YL pour Je registre Y et XH + XL pour 
le registre X). 

Lodressoge des 16 Mo de la memoire vive (RAM) 
disponible se fait dune maniere similaire au micro- 
processeur 8086, c'est 6 dire par fragmentation de 
la RAM en zones de donnees appelees "Bank" ou 
pages sur le 65C816. Chaque page (Bank) est for 
mee d un bloc de 64 Ko dont I adresse partielle, 
codee sur 8 bits, se trouve dans Je registre 8 bits 
Data Bank. Cette adresse partielle represente le 
poids fort de ladresse complete sur 24 bits, 
En mode native (E = Q), le registre de page de don- 
nees (DB) de 8 bits de large, memorise l adresse par 
defaut de la page (bank address) pour le transfer* 
de la zone memoire, Lodressoge sur 24 bits se com 
pose a lors des 16 bits de l adresse effective (index X 
ou Y) et des 8 bits du registre page de donnees 
(D8R). Le contenu du registre DBest multiplexeavec 
la valeur de la don nee se trouvant a une adresse 
memoire et a done la possibility de gerer simultane- 
ment une donnee et I adresse de lodite dor nee. 
Cette prouesse de lo technique est realisee durant 
la premiere phase du cycle de transfert de la don- 
nee vers la memoire centrale. Le registre page de 
donnees (Data Bank Register — DBR) est initialise a 
la valeur zero pendant la phase du Reset, 

Registre adr essage direct 
(Direct Register -D) 

Le registre adressage direct 16 bits est pourvu d une 
structure lui permettant d'adresser toutes les ins- 
tructions du processeur, en mode ad res sage direct, 
L'adressage effectif de la page zero est realise en 
ajoutonl le deuxieme octet de I instruction ou regis 
tre direct, 

Le registre direct est adressable soit en mode 8 bits 
{emulation — DL), soit en mode 16 bits (native — D). 
C'est un faux 24 bits dont les 8 bits les plus 6 gauche 
sont toujours positionnes a zero. Les 16 bits les plus 
a droite torment deux groupes. Les S bits les plus a 
gauche font partie de I'octet de poids fort (DH), les 8 
bits les plus 6 droite representant I'octet de poids 
foible (DL). Ce registre autorise un acces plus rapide 
a la memoire, C'est en somme une extension de fa 
page zero du 6502. La page zero peut etre placee ou 
ion veut avec les microprocesseurs 65C816 et 
65C802, Le registre direct (D) est initialise a la 
valeur zero pendant la phase du Reset. 

Registres d index xetY 
(index -x ond V) 

Le mlcroprocesseur 6SCtt 1 6 mtegre deux registres 
d index (X et Y) dont le role est double : une utilisa- 
tion generale et une utilisation comme index d une 



adresse effective de la memoire par exemple. Dans 
ce dernier cas plusieurs modes dadressages 
indexes sont offerts au programmeur. Les registres 
dindex X et Y sont utilises lors de lexeculion d une 
instruction relative a un adressage indexe, Le 
microprocesseur recherche alors le code de Tins- 
truction et l adresse de base, puis modifie l adresse 
initiale en lui additionnant la valeur de lindex du 
registre concerne (X ou Y). 

L'adressage indirect indexe comporte deux modes : 
l'adressage preindexe et l'adressage postindexe. lis 
sont selectionnes dans le mode native avec le bit E 
du registre d'etat egal a zero. Pour effectuer des 
operations sur des adresses indexees sur 16 bits de 
large, il esl necessaire de positianner le bit X du 
registre d'etot (Index Register Select) a la valeur 
zero (X = 0J. Dans le cas d un calcul sur une adresse 
partielle de 8 bits de large, le bit X du registre d'etat 
devra avoir comme valeur un (X - 1 ). 
Le registre d'index X (X — Index Register X) est 
adressable soit en mode 8 bits (emulation — XL), 
soit en mode 16 bits (notive — X). En mode 16 bits, il 
se compose d un octet de poids fort (XH) et d un 
octet de poids faible (XL}, Le registre dindex Y (Y — 
Index Register Y} est adressable soit en mode 8 bits 
(emulation — YL), soit en mode 16 bits (notive). 11 se 
compose d uo octet de poids fort (YH) et d un octet 
de poids faible (YL). 

Registre d'etat du processeur 
(Processor s tot us — P) 

Le registre d'etat du microprocesseur integre 8 bits 
destines a renseigner le svsteme (et le program- 
meur) sur diverses situations (Status) lors des ope- 
rations en cours. Ces different* bits sont des dra 
peaux (Flags) de situation et de modes (status flag 
and mode flag). 

La retenue (Q, le bit du signe (N), le bit de debase- 
ment (V) et le bit du resullat nul (Z) sont des dra> 
peaux (flogs) de situation servant a effectuer un 
report sur le module de I'unite arithmetique et logi- 
que (ALU) du processeur, Les dropeoux de situation 
effectuent un test de branchement pour la poursuite 
evenluelle de ['instruction en cours d'execution (si 
la condition posee est remplie). Le bit du mode deci- 
mal (D), te bit d'inhibition de ['interruption (]), le bit 
de selection de lo memoire/accumulateur (M) et le 
bit de selection du registre d index (X) sont des dra- 
peaux autorisont une selection d un mode deter- 
mine. Ces bits flogs sont utilises pour onnoncer au 
microprocesseur un changement doperation dans 
l execution d un programme en cours. 
La selection du mode emulation (E) et du Break (B) 
est accessible en positionnant certains bits du regis- 
tre d'etat du processeur. Ce sont en somme des bits 
fictifs dont l etot est conditionne par la valeur d un 
ou de plusieurs bits reels du registre d'etat, 

{suite page 24) 
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Le process eur gere et modifie ces bits internes (E et 
fl). Le mode emulation native est selectionne en 
permutant les bits de ia retenue [Q et de I'emula- 
tion (E). Cette operation est effectuee grace 6 une 
instruction machine (XCE) propre au microproces- 
seur (voir d cet effet la table de comparaison des 
differents mode (native : E = Q ou emulation : E = 
1)). Les bits M et X sont toujours positionnes 6 la 
valeur un (M X = 1) en mode emulotion (8 bits). 
Lorsqu une interruption survient pendant le mode 
emulation, le bit B (Break flag) est sauvegorde sur 
la pile comme valeur du bit 4 (X) du registre d'etat 
du microprocesseur, 

Registre page programme 
(Program Bank Register - PBR) 

Le registre page programme (Program Bank) est de 
8 bits de large. II contient I'adresse partielle (High 
Byte) lors de la recherche de cheque instruction au 
niveau d un programme, Le registre PB memorise 
l adresse de to ligne ou I instruction du programme 
en cours d execution a ete recherchee. 
Ladresse de 24 bits de large consiste en une asso- 
ciation de I'adresse 16 bits du compteur ordinal (ins- 
truction en cours d execution) avec I'adresse de 
poids fort sur 9 bits contenue dans le registre page 
programme (PBR). Le compteur ordinal (PC) contient 
les 16 bits les plus a droite de I'adresse de I 'instruc- 
tion en cours d execution. Le contenu du registre PB 
est multiplexe avec les donnees du programme et □ 
done la possibility de gerer simultanement une ins- 
truction et I'adresse de la ligne ou linstruction en 
cours d'execution a ete recherchee, Cette prouesse 
de la technique est realisee durant la premiere 
phase du cycle de lecture de la memoire. Cest le 
compteur ordinal (PC) qui gere les instructions pas 
d-pas (cycles machine) pendant la lecture des don 
nees du programme implante en memoire centrale. 
Le registre page de donnees (PB) est initialise 6 lo 
valeur zero pendant la phase du Reset, 
Comme pour le registre page de donnees (DB). 
'□dressage des 16 Mo de la memoire vive (RAM) 
disponible se fait par fragmentation. Cest ainsi 
qu un programme implante en memoire centrale, 
est vu par le processeur comme des pages (Bank). 
Ce sont des blocs de 64 Ko dont I'adresse partielle (8 
bits les plus a qouche) est codee sur B bits. Cette 
adresse partielle represente le poids fort de 
I'adresse complete. Le registre PB est complemen 
taire au registre PC, Associe avec le registre PC 
comme octet de poids fort d'une adresse sur 24 bits, 
ils torment ensemble le pointeur de ta ligne de Tins* 
truction d'un programme en cours d J execution, 

Compteur ordinal 
(Program Counter -PC) 

Le registre du compteur ordinal gere une adresse 
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sur 1 6 bits de large au fur et 6 mesure de I'execution 
des instructions du microprocesseur. II renseigne ce 
dernier, sequence par sequence, de ladresse 
actuelle durant toute la phase d execution d une ins 
truction machine. Le registre est increments au fur 
et 6 mesure lors de chaque cycle machine (Timing) 
de l instruction en cours ou de l operante recher 
chee au niveau de la memoire (programme). 
Le compteur ordinal (PC) est odressable soit en 
mode 8 bits (emulation — PCL). soit en mode 16 bits 
(native — PC). II se compose d'un octet de poids fort 
(PCH) et d un octet de poids foible (PCL), Associe au 
registre PB, il per met de pointer une adresse sur 24 
bits (adresses $000000 a $FFFFFF) d I'interieur d'un 
programme. Dans ce cas, l association des deux 
registres forme une adresse sur trois octets. 

pointeur tie pile (Stack Pointer - S) 

En mode native (E = 0), le pointeur de pile est un 
registre de 16 bits de large et pointe la prochaine 
adresse disponible sauvegardee dons I'espace 
memoire de la pile, A chaque fois qu'on empile, S 
est decremenle et, d lout moment. S pointe vers le 
prochain emplacement libre de lo pile, 
L'operation empiler (Push) permet de placer un ele- 
ment au somrnet de la pile. L'operation depiler 
(Pull) consiste en un transfert du contenu du som 
met de la pile vers le registre declare, 
Le pointeur de pile a deux fonctions essenn'e' ieb ■ 
d une part gerer des pointeurs pour memoriser des 
adresses de retour d un sous-programme {RTS au 
GOSUB) ; d'autre part pointer vers une adresse 
apres une interruption. Le pointeur de pile pointe 
^implement vers une adresse de retour de sous- 
programme ou suivant le niveau d'interruption ren- 
contre. Le registre pointeur de pile (S) est odressa- 
ble soil en mode 8 bits (emulation - SL), soit en 
mode 16 bits (native — S). Cest un faux 24 bits dont 
les 8 bits les plus d gauche sont toujours a zero. Les 
16 bits les plus 6 droite torment deux groupes de 8 
bits. Les 8 bits les plus a gauche font partie de I'octet 
de poids fort (SH), les 8 tits les plus a droite repre 
sentent I octet de poids faible (SL), 



Registre pointeur de pile 
en mode native <E = 0) 

Bits 



s 


SH 


5L 


F 


E 


D 


c 


* 


A 


9 


& 


7 


6 


5 


4 


3 


2 


1 


t> 


X 


X 


X 


X 


X 


X 




X 


X 




X 


X 


X 


X 




X 



S = Stack Pointer Les bits marques par des x 
SH = Stack High Byte sont disponibles comme bits 
SL = Stack Low Byte du pointeur de pile. 
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En mode emulation [E = 1}, 1'octet de poids fort du pointeur de pile (SH} est toujour* egal 6 1 , ce qui le met au 
meme niveau que le pr ocesseur 6502 : 8 bits disponibles (bits fl-7) avec le bit 8 toujours a 1 . 



Registre pointeur de pile 
en mode emulation (E = 1) 

S = Stock Pointer SH = Stock High Byte SL = Stack Low Byte 

Les bits marques par des x sont disponibles com me bits 
du pointeur de pile, le bit 3 etant alors a 1 tandis que 
les bits F a 9 sont nuts. 



Bits 



s 


SH 


SI 


F 


E 


D 


c 


B 


A 




B 


7 


& 


5 






2 


1 


a 








a 




a 







1 


X 


X 


* 


X 


X 




X 





(CODES OPERATIONS DU 
MICROPROCESSEUR 65C816 

Symboles et differents modes d'adressage 



£ 


adressage immediat 


(«) 


adressage absolu indirect 


(M 


adressage absolu indexe indirect 


(4 


adressage direct indirect 


(4* 


adressage direct indirect indexe avec Y 


(d.x) 


adressage direct indexe indirect 




adressage indirect indexe relativement 6 la pile 


□ 


adressage absolu 


OX 


adressage obsolu indexe avec X 




□dressage absolu indexe avec ¥ 


A 


operation effect uee sur roccumulateur 


el 


adressage absolu long 


□l,x 


adressage absolu indexe long 


d 


adressage direct 


d,x 


adressage direct indexe avec X 




adressage direct indexe avec Y 


i 


adressage implicite 


r 


adressage relatif au compteur ordinal 




adressage relatif d la pile 


rl 


adressage long relatif au compteur ordinal 


5 


□dressage de la pile — empilement/depilement 


xya 


adressage 'black bank" source vers "bank" de destination 


<d> 


adressage long direct indirect 


<d>.y 


adressage long direct indirect indexe ovec Y 



00 


BRK 


implicite : i 


06 


ASL 


direct : d ou page zero : 00 


Ol 


OR A 


direct indexe avec le registre X ; d,x 


07 


ORA 


direct indirect long : <d > 


02 


COP 


implicite : i 


08 


PHP 


la pile (empilement/depilement) : s 


03 


ORA 


relatif a la pile : r t s 


09 


ORA 


adressage immediat : £ 


04 


TSB 


direct : d au page zero : QQ 


OfA 


ASL 


accumulates : A 


05 


ORA 


direct : d ou page zero : 00 


0B 


PHD 


la pile (empilement/depilement) : s 
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oc 


TSB 


obsolu : o 


OD 


ORA 


absolu : □ 


0E 


ASL 


absolu ; a 


10 


BPL 


relatif au compteur ordinal ; r 


11 


ORA 


direct indirect indexe : (d).y 


12 


ORA 


direct indirect ; (d) 


13 


ORA 


indired indexe relativement a la pile : (r,s),y 


14 


TRB 


direct : d 


15 


ORA 


direct indexe avec X : d,x 


16 


ASL 


direct indexe avec X : d,x 


17 


ORA 


direct indirect long indexe* :<d>,y 


IS 


CLC 


implicite : 1 


19 


ORA 


absolu indexe avec Y : a,y 


1A 


INC 


accumulates : A 


IB 


TCS 


implicite : i 


1C 


TRB 


absolu : a 


ID 


ORA 


absolu indexe avec le registre X ; a,x 


IE 


ASL 


absolu indexe avec le registre X ; a x 


IF 


ORA 


obsolu long indexe avec X : al,x 


20 


JSR 


obsolu : a 


21 


AND 


direct indexe Indirect ; (d r x) 


22 


JSL 


obsolu long ; al 


23 


AND 


relatif a la pile : r,s 


24 


BIT 


direct : d. ou page zero : 00 


25 


AND 


direct : d. ou page zero : 00 


26 


ROL 


direct ; d r ou page zero ; 00 


27 


AND 


direct indi rect long : <d > 


28 


PLP 


la pile : s 


29 


AND 


immediat : £ 


2A 


ROL 


accumulates : A 


2B 


PLD 


lo pile : s 


2C 


BIT 


absolu : a 


2D 


AND 


obsolu ; a 


2E 


ROL 


absolu : a 


2F 


AND 


obsolu long : al 


30 


BMI 


relatif au compteur ordinal ; r 


31 


AND 


direct indirect indexe ; (d),y 


32 


AND 


direct indirect : (d) 


33 


AND 


» l> i ■ i ■» i i ' i ■ i ■ i ■ i 

indirect indexe relativemenl a la pile : (r.sj.y 




bit 


uireCt mae^e avec le registre a . d : x 




AND 


direct indexe avec ie registre X ; d,x 


Jo 


ROL 


direct indexe avec le registre X ; d,x 


T7 

J / 


a Kin 


direct indirect long indexe :<Cd^,y 


O0 


err 


implicite : i 


fjo 
JT 


a ki n 


absolu indexe avec le registre ¥ : a,y 


1 A 
OA 


UtA 


accunnulateur \ A 




1 


implicite : i 




D 1 1 


uDbuiu inaexe avec le regisTre a . <j,k 


3D 


AND 


absolu indexe ovec le registre X : a x 


3E 


ROL 


absolu indexe ovec le registre X : a,x 


3F 


AND 


absolu long indexe avec le registre X ; aLx 


40 


RTI 


la pile : s 


41 


EOR 


direct indexe indirect : (d,x) 


42 


WDC 


implicite : i (utilisation future avec le 65C832) 


43 


EOR 


relatif a la pile : r,s 



44 


MVP 


block bank source vers banck de 






desintation (Move) : xya 


45 


EOR 


direct ; d, ou page zero : 00 


46 


LSR 


1- 1 t /|A 

direct : d, ou page zero : 00 


47 


EOR 


direct indirect long <d> 


48 


PHA 


lo pile : s 


49 


EOR 


immed at : t 


4A 


LSR 


accumuiateur : A 


4B 


PHK 


la pile : s 


4C 


JMP 


absolu : a 


4D 


EOR 


absolu : a 


4E 


LSR 


absolu : a 


4F 


EOR 


absolu long : at 


50 


BVC 


relatif au compteur ordinal : r 


51 


EOR 


direct indirect indexe Y : (d),y 


52 


EOR 


direct indirect long :<d> 


S3 


EOR 


indeed indexe relotivement a la pile : jr,s),y 


54 


MVN 


block bank source vers bank des- 






tination (Move) : xya 


55 


EOR 


direct indexe avec X : d.x 


56 


LSR 


direct indexe avec X : d,x 


57 


EOR 


direct indirect long indexe : <d>,y 


58 


CLI 


implicite : i 


59 


EOR 


absolu indexe Y : a^ 


5 A 


PHY 


lo pile : s 


5B 


TCD 


implicite ; i 


5C 


JMP 


absolu long : al 


5D 


EOR 


absolu indexe oyec X : a,x 


5E 


LSR 


absolu indexe avec X : a,x 


5F 


EOR 


obsolu long indexe avec X : al,x 


60 


RTS 


l ■ l 

la pile : s 


61 


ADC 


direct mdexe indirect : (d,x) 


62 


PER 


lo pile ; $ 


63 


ADC 


relatit a la pile : r,s 


64 


r> -■ r 

STZ 


direct :d, ou page zero : 00 


65 


ADC 


direct : d, ou page zero : 00 


z / 
DO 


O f~\D 

KUH 


direct : d. ou page zero : 00 


67 


AUL 


direct : indirect long :<Cd ^ > 


Aft 


P 1 A 


la pil-£ : s 




Anr 


i tyi m &rl 1 nt ■ ¥ 

IfllllltTUIUI . Ii 






nrn imi il^ifAi ir * A 


<J D 


RTI 

1 \ 1 L 




6C 


JMP 


nb^niu indirect ■ (a) 




ADC 


UU3UIU . u 


6F 


ROR 




6F 

Of 


ADC 


nh^nlu lonn J nl 

uujyiu iui iu ■ ui 


7Cf 


BVS 


rplntif nu rnmntPLir nrHindl ■ r 

1 C 1 U 1 1 1 UU Lk/I MU 1 CUI \J 1 LJ P V \ \d A ■ 1 


71 


ADC 


direct indirect indexe : (d) r y 


72 


ADC 


direct : d 


73 


ADC 


indirect indexe relotivement 6 lo pile : (r,s),y 


7 4 


STZ 


direct indexe avec X : d,x 


75 


ADC 


direct indexe avec X : d,x 


76 


ROR 


direct indexe avec X : d r x 


77 


ADC 


direct indirect long indexe : <Td>y 


78 


SEI 


implicite : i 
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79 

f 7 


ADC 


nhinlu inrtavp nvpf Y 1 n v 

UU3LMU !llUC/iC UVCV 1 i u jT 


ea 


BCS 


relotif au compteur ordinal : r 


7 A 
/ A 


PI V 
"Li 


la pile ; s 


R 1 


1 DA 


Hir^rl indirprt ind^xp ovec Y ' (dl v 


7R 


TDC 

1 u\. 


i nflnlii-ito ' 1 

1 1 HIJIIlI It? , 1 


B2 


LDA 


direct indirect ■ fdl 

uu vv> 1 1 1 l,j 1 1 i_ s_ 1 1 u i 


7C 


IMP 


fiK-tnlii inrHovji inrlirort ■ in v\ 

ULtsLmU 1 1 JLftr At? IMLIIICJLI ■ \ U, AJ 


B3 


LDA 


indirect indexe relati vemenl h la ode i'r si v 


7 n 


Anr 


□ osuiu maexe pvec a, . a,x 


R4 


l DY 

L 1 


Hlrort 1 nrl&v-pi rtuf*r X ■ n y 

u 11 1 1 4UIC?Atr U iCt . M , ^ 




POP 




□ j 


I DA 


d i rPft inrlprfP nvec X 1 d x 

U 1 1 t_ 1 1 1 IUU A t U * \r *m f\ . 1 J , -rt 


f r 


adc 


UU3UIU IUM1J IE IUP AC U Vtf L A . UI,A 


B6 


LDX 


direct indexe ovec Y : d,y 


ay 


Dp A 


reiuTii uj corripTeur orutnoi . r 


R7 


1 nA 


rlirort inrlif ort nnn mfipvp n vpf V ■ <f" H 




CTA 
5 1 A 


□irgcT inoexe iriuirecT , ^o,xj 


Rfi 

DO 


C\ V 

\_ L V 


imn iritpi ■ i 
1! Fipi ILI 1 tr . 1 


i 


API 


relatif au compteur ordinal, long ■ rl 


D 7 


1 DA 


rthtftki innfiVD nupr V ■ fi k 

LIU a LI ILI ITItJUAC LrVCTV 1 , 


w 1 
O J 


CTA 


relatif a la pile : r, 5 


DA 


TC V 
1 J A 


i m i% iri ta > i 

impnciie . i 


RJ 


CTV 
z> I i 


ull c?t 1 , u 1 uu puyc Zel u . vv 




TYX 

1 1 i'V 


Imnlifitp f 1 
1 1 up ii vi i^? * i 


RS 

O -J 


O 1 f~\ 


rlirarf 1 rl nil no 7 am 1 Lin 




LDY 


fih^olL index^ ov&c X ■ □ x 


00 


CTV 

1 A 


□ irei* a. ou suge icero 


Rn 

D U 


[ DA 


nhcoli i i nnPY p fiupf Y ■ n y 

UUjVJf. U II1UCAC U V CL /\ - LI , A 


,07 
/ 


CTA 
j 1 A 


Qireci inuirecT long .^o ^> 


RF 

DL 




i"ihcrilj ► i nrlcvo nupf Y ■ n v 


Rfi 




t nri n 4 1 r 1 11 1 

t fu p 1 k 1 rts „ 1 


RF 

d r 


LDA 


nh^nlu Ifino indpxp (ivpr X * ol x 




Dl 1 


1 pVi r'rt fin 1 fit 1 t 




tpy 

v.r 1 


i m mon i-r*i t ■ f 

II Fill ICUIU 1 i A 




TV A 


IITIUI Itl Iflf . 1 


c 1 


CMP 


Hirefl ind&ice indirect J fd xli 


RR 


P MR 
r n d 


','1 n! la ■ t 
• Li pi It , s 




REf 3 


i m m pn i ot ■ £ 

II III 1 ICUIUI ■ M# 




CTY 
j 1 T 


udsou r a 






rolntit n \n ni d ■ r i 

1 fc?l U 1 1 1 U 1 u pi 1 ■ 1 j 3- 


ft n 


CTA 

j i a 


□dsoi j . a 




CPY 

\_ r 1 


rlirpfl ' H rti i rinflp 7Pffi " QO 


RF 


5 1 A 


UUSLMU . u 


C5 


CMP 


dir**r t ■ d ou oaae zero ■ QQ 


tsr 


3 \ A 


□DSOiu long , 01 


Ch 
^0 


DFC 


^ircrl ' rl nn nfirtP ^^rri " ■0(3 
u 1 1 1\. i , U , li y li uy cr i tr \ \j . wv 






reiuTir au compTeuir orainai . r 


Km f 


^fvir 


Airetf-i inrlir*rt Irinn ■ <^ A ~~*> 

Ull l?V-l IMUIItfLI IUI1U , ^s. U #r 


Q 1 


CTA 
J 1 A 


□irecT inoirecT 1 na ex e uvet 1 . \uj ,y 


fR 


IN Y 


imnliritA * i 

III IUI IUI llJ r 1 


on 


CTA 
J 1 M 


direct indirect : (d) 


ro 

v. ? 


V^rVi r 


1 Fn ITI SO 1 U T . 1 


0^ 


CT A 
O 1 A 


InjiriPb^l in/lfl.uA rf\l n 1 i 1 1 HPfi ft n t n lr* nils 1 ■ r c I 

inaireci inaexe reiai ivefn&riT □ 10 pus . ^ns^y 


r a 


riF X 


IITipilUllt? . 1 


QJ 


^TY 


U 1 1 xr L 1 111 Lit UVCL A . U,A 




WAI 


imnliritp * i 

1 1 1 1 %J 1 v\j 1 117 ■ 1 


t3 


CTA 
J 1 A 


direct inaexe ovec a , a r x 


rr 


tpy 


,-i ken Li • ri 




CTV 
J 1 A 


direct indexeavec Y ; d.y 






nhcn hi ■ 


07 

7 / 


CTA 
.5 1 A 


uir&tT inairecT inacx&uvec i . i,Qj,y 


r f 


DEC 


nK*iri id ■ n 


OA 

yh 


TV A 
1 i A 


LmpllCITe . 1 


f"F 




inpAtni ii innn " til 

luny ■ Ul 


gg 

T 7 


CTA 
J 1 A 


aDiOiLi inaexe uvsc t . u,y 




RN F 


riplnti^ nit mmntPLir ordinal ■ r 

1 tlUIH VJTJ LUJIIipiCLII Ul UM IUI ■ ■ 


7 f-\ 


1 A J 


t m ri 1 J 1" i t a ■ i 
triipilLlltr . 1 


D 1 


CMP 


direct indirect indexe ovec Y J fdll.v 


9R 


TVV 
1 A 1 


1 iyi n 1 1 f 1 ta ■ 1 
MTipilLNe . 1 


D2 


CMP 


Hirprt indir^rt J fdl 


9C 


STZ 


nhiolu ' □ 


D3 


CMP 


indirect indexe relativement d lo pile : (r.sj.y 


9D 


STA 


absolu index© avec X : a f x 


D4 


PEI 


la pile : $ 


9E 


STZ 


obsolu indexe avec X : a,x 


D5 


CMP 


direct indexe avec X : d,x 


9F 


STA 


absolu long indexe ovec X t al r x 


D6 


DEC 


direct indexe avec X ; d,x 


AO 


LDY 


jmmediat : £ 


D7 


CMP 


direct indirect long indexe ovec Y <d>y 


Al 


LDA 


direct indexe indriect : (d,x) 


D8 


CLD 


implicite : * 


A2 


LDX 


immediat : £ 


09 


CMP 


absolu indexe avec Y : a,y 


A3 


LDA 


relatif d (a pile ; r,s 


DA 


PHX 


la pile : s 


A4 


LDY 


direct ; d P ou page ;ero : QQ 


DB 


STP 


implicite : i 


A5 


LDA 


direct : d F ou poge zero : 00 


DC 


JML 


absolu indirect : (a) 


A6 


LDX 


direct : d r ou page zero : 00 


DD 


CMP 


absolu indexeavec X : o.x 


A7 


LDA 


direct indirect long ;<d > 


DE 


DEC 


obsolu indexe avec X : a d x 


A8 


TAY 


implicite : i 


DF 


CMP 


absol u long indexe avec X : al x 


A9 


LDA 


immediat : £ 


EG 


CPX 


immediat ; £ 


AA 


TAX 


implicite : i 


El 


SEC 


direct indexe indirect : (d,x) 


AB 


PLB 


la pile : s 


E2 


SEP 


immediat : £ 


AC 


LDY 


absolu ■ a 


E3 


SBC 


relatif a la pile : r,& 


AD 


LDA 


absolu : 


E4 


CPX 


direct : d t ou poge zero : 00 


AE 


LDX 


absolu : a 


E5 


SEC 


direct : d f ou page zero : 00 


AF 


LDA 


absolu long : ol 


E6 


INC 


direct : d r ou poge iero : 00 
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E7 


see 


direct indirect long : <d> 


E8 


INX 


impficite : i 


E9 


SEC 


im medial : £ 


EA 


NOP 


implicite : i 


EB 


XBA 


implicite : i 


EC 


J" n \j» 

CPX 


absolu : a 


ED 


SEC 


absolu : a 


EE 


INC 


absolu : a 


EF 


SBC 


absolu Jong : ol 


F0 


BEQ 


relatif au compteur ordinal ; r 


Fl 


SEC 


direct indirect indexe avec Y ; (d),y 


F2 


SBC 


direct indirect : (d) 


F3 


SBC 


indirect indexe relalivement a la pile : <r,s] f y 



F4 


PEA 


i -i 
la pile : s 


F5 


SEC 


direct indexe ovec X : (d),x 


F6 


INC 


direct indexe avec X : (d) r x 


F7 


SBC 


direct indirect long indexe ovec Y : < a>,y 


F8 


5ED 


implicite : i 


F9 


SEC 


absolu indexe ovec Y : a.y 


FA 


PLX 


9a pile : s 


FB 


XCE 


implicite : i 


FC 


JSR 


absolu indexe indirect : (o x) 


FD 


SBC 


absolu indexe avec X : a,x 


FE 


INC 


absolu indexe avec X ; o x 


FF 


SBC 


absolu long indexe avec X ; 



5ADRESSAGE SOMMAIRE 
DU 65C816 



Modes d'adressage 


G5Q2 


G5C81G 


Cycles 


Bytes 


Cycles 


Bytes 


1. 


Immediat 


2 


2 


2 {3) 


2(3) 


2, 


Absolu 


-1 (5. 


3 


4 (3 + S) 


3 


3. 


Absolu long 






5(3) 


4 


4, 


Direct 


3(5) 


2~ 


3 (3 + A + 5) 


2 


5- 


Accumulateur 


2 


1 


2 


1 


6. 


Implicite 


2 


1 


2 


1 


7. 


Direct indirect Indexe 


5(1] 


2 


5(1 +3 + 4) 


2 


e. 


Direct indirect indexe long 






&(3 + 4) 


2 


9. 


Direct indexe indirect 


6~ 


2~ 


6(3 + 4) 


2 


10. 


Direct indexe ovec X 


A (5) 


2 


4(3 + 4 + 5) 


2 


11, 


Direct indexe avec Y 


4 


2 


4{3 + 4) 


2 


12. 


Absolu indexe ovec X 


AO +5) 


3 


4 (1 + 3 + 5) 


3 


13. 


Absolu long indexe 






5(3] 


4 


14. 


Absolu indexe ovec Y 


4(1] 


3~ 


4(1 +3) 


3 


15. 


Relatif 


2(1 +2) 


2 


2(2) 


2 


16 


Relatif long 






3(2) 


3 


17. 


Absolu indirect (JUMP) 


5~ 


3~ 


5 


3 


1A. 


Direct indirect 






5(3 + 4) 


2 


]9. 


Direct indirect long 






6 (3 + 4) 


1 


20. 


Absolu indexe indirect 






6 


3 


21. 


Pile 


3^7 


~3 


3-8 


1 4 


22 


Relatif a la pile 






4 P) 


2 


23. 


Indirect indexe relativement a la pile 






7 (3) 


2 


24. 


Deplacement d une poge de donnees (X,Y,,C) 










— source/destination/longueur 






7 


3 



Legends des indices du tableau : 

1 Aputer 1 cycle si une limite de page memoire est depassee (bytes ou expression designqnt une odresse), 

2 Ajouter 1 cycle si le branchement est realise. 

3 Ajouter 1 cycle et 1 byte pour 1 adressage immediat. Regie vaiable pour des operations realisees sur ItV 
bits avec M = Q et X = Q (M et X = bits du registre d'etat). 

4 Ajouter 1 cycle si le resultat est different de zero : Registre direct, octet de foible poids (DL) different de zero. 

5 Ajouter 2 cycles si le bit M - 1 et 3 cycles si le bit M = (M = bit du registre d'etat). Regie vaiable pour les 
routines utilisant les functions Read /Modify /Write. ■ 
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UTILITAIRE | 



Francois GALLET 



HORLOGE 

Voici un utilitaire dont une premiere approche avait ete realisee par 
Claude AUBRY dans le numero 5 de Tremplin Micro et qui, j'en suis cer- 
tain, rendra un service inestimable aux heureux possesseurs de I'Apple 
He ou de I'Apple He avec 65 CO 2 et carte souris. 



Que fait done ce programme ? 

El vous permettra d'avoir en permanence la 
date et Iheure a lecran (en 80 colonnes), 
oinsi que la possibility d'horodater vos 
ceuvres. De plus, vous pourrez a tout 
moment, modifier ces parametres, en utili- 
sant simplement l Ampersand. 



Enfin, si vous travaillez relativement lord et 
qu un jour nouveau vous surprenne r vous naurez 
pas a vous inquieter du changement de date, cor 
celui-ci se fero automatiquement, meme s'il faut 
pour tela changer d'onnee, Ain$i r vos fichiers 
seront correctement horodates. 



Comment fonctionne-t-il ? 



Ce programme, utilisable sous ProDOS, prend 
environ 1 ,4 K de memo ire et se loge a parti r de 
I'adresse $9000, juste sous les buffers CAT.E/S 
debutant en $9600. HIMEM a ete repositionne 
a $9000, ce qui place les buffers d'ouverture 
de fichiers sous HORLOGE (en protegeant ainsi 
la routine et en vous permettant de disposer 
d'environ 60 octets pour y apporter deventuel- 
les modifications). 

L'horloge proprement dite debute d I'adresse 
$9390 par un SEI, qui inhibe toute nouvelle 
interruption de type IRQ. ceci de maniere a 
pouvoir initaliser le systeme. On teste bien sOr 
la presence de la carte SOURIS, et on place 
I'adresse de saut effective en $3FE $3FF, 
odresse qui sera cehe du cornptage et du trai- 
tement, debutant 6 $94 ID. 

Pour vous permettre d appretier cet 
utilitaire, voici un petit exercice : 

• Tapez RUN HORLOGE. BAS puis (Return). 

• Tapez ft puis (Return) 

Un cadre doit apparaitre ou milieu de l ecran. 
Indiquez la date puis repondez par ; 

• (N}on, en cos d'erreur, • (O)ui, pour continuer. 



Dons le ca$ d une reponse affirmative, h date 
s'inscrit en haut a gauche, dans le cadre prevu 
a cet effet. Puis, la mention Mise b Iheure de 
l'horloge apporoTt. Reogissez de la meme 
fa con que precedemment, mois en indiquant 
t 'heure octuelle, puts repondez a la question : 

Etes-vous d'accord ? 

Si vous topez (O)ui, I heure se met a jour, \e 
cadre disparart et vous retrouvez I'ecran tef 
qu'il etoit avant cet exercice, a la difference 
que vous disposez de lo dote courante et d une 
horlage. 

Si vous tapez (N)on. le cadre reste, mais vous 
retournez a 3a mention concernant la dote, Le 
fait de taper sur (FLECHE BASSE) vous per met 
de revenir a lo portie Mise 6 I'heure de Chor- 
loge. Dans tous les cas, vous pouvez abandon- 
ner en tapant sur la touche Esc. 

Deuxieme exercice : 

■ Faites CATALOG 

* Mettez la date et I'heure d jour, par 
exemple : 

JJ/MM//AA » 31/12/85 

HH : MM SS — » 1 8: 30 00 (Suite page 3o) 
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Le cadre a occuite une parfie de f'ecran, mais 
vous retrouverez ce dernier des que vous 
aurez termine la mise 6 jaur. 
■ Tapez ce programme Basic : 
10 REM **+ NUL *** 

* Faites SAVE NUL, puis CATALOG, 
Que constatez-vous ? 

Votre programme est maintenant horodate. 
Vous remarquez une date identfque dans les 
deux rubriques CREATION et MODIFICATION 
Ceci est du au foit que votre programme vient 
d'etre cree. 

Dernier exercice pour les couche-tard. 

* Faites A 

* Modifiez seulement I'heure en mettont 
23:59 50 

Des que I'heure atteint 24:00 00, elle se remet a 
zero (RAZ), et — 6 joie ! — la date passe du 
31/12/85 au 01/01/86. Essayez de refaire SAVE 
NUL puis CATALOG Que constatez-vous ? 

Voila ! vous savez tout. Rien ne vous empe- 
chera, pour vos propres besoins d'apporter 
une touche personnel!* a ce programme. 
J'ollais oublter ; il exisfe quelques restrictions 
6 I'emploi de cet utilitaire : 

* Un Reset le perturbero def initivement. Si 
celo arrive, faites PRE3, sauvegardez votre 
programme s'il y en a un f tapez RUN HOR- 
LOGE.BAS, puis rechargez le fruit de vos 
cogitations. 

* Si vous voulez effacer l ecran, faites HOME 
au la sequence Esc Shift-fa, et non pas PR£3. 



• Si vous deplacez HIMEM, il faut quil so it 
inferieur a lodresse $9000, car c'est la que 
se loge HORLOGE. 

■ HORLOGE no pas de colendrier perpetuel et 
done, ne gere pas te 29 fevrier. 

• Si vous executez un programme en page 
texle, assurez-vous de placer des tabula- 
tions de ligne superieures a 2. 

• N essayez pas d'executer un programme uti- 
lisont les pages graphiques, mais rien ne 
vous empeche de I'ecrire. Si vous vaulez 
I'horodater, faites ia sequence suivante : 

— Ne chorgez pas HORLOGE. 

— Ecrivez et testez votre programme, puis 
sauvegordez-le. 

— Chargez HORLOGE par RUN HOR- 
LOGE. BAS et mettez a jour la date et 
I'heure. 

— Rechargez voire programme. 

— Faites DELETE programme (permet 
d effacer le SANS DATE dans la rubrique 
CREATION). 

— Sauvegardez d nouveau votre pro- 
gramme, 

Apres ces quelques remarques, je n ai plus 
qu une chose d vous souhaiter : ban travail ! 



P,$ t ; Ce programme e%t protege centre taute entree 
non conform* : erreurs de date du type 35 03 86 ou 
24 24 86 ou encore 33 00 86 voire 3 J II 86. ou one 
heure du type 25:00 90 ou 12:60 OS on 12:00 60 etc. ... 



HORLOGE. BAS 

10 REM *** HORLOGE. BAS *** 

20 D$ = CHR$ (4) : REM CTRL-P 

30 POKE 1014,132: POKE 1015,144: REM $3FE-3FF » Saut en $9084 

40 PRINT D$ ; "BLOAD HORLOGE. C" 

50 CALL 37776 

60 HOME : PRINT TAB (2) ; "Date " ; TAB (9) ; "Aucune" ; TAB (61 ) ; "Horloge 

70 PRINT CHR$ (27) : INVERSE : FOR C = TO 79 ; PRINT CHR$ (76) ; : NEXT 

80 VTAB 1 i HTAB 1 : PRINT CHR$ (95) ; : HTAB 18 : PRINT CHR$ (90) ; : HTAB 59 : PRINT 

CHR$ (90} ; : HTAB 80 : PRINT CHR$ (90) : NORMAL : PRINT CHR$ (24) 

90 POKE 34,2 : VTAB 2 : HTAB 1 : NEW 
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H*@80-a CD E9 F3 E5 A8 C8 A& EC A 7 ES £5 F5 F2 E5 A3 E4 

9618; E5 AD EC A? ES EF F2 EC EF E7 E5 00 CS CS BA CD 

?02@: CD A0 D3 03 80 A6 A0 CD E? F3 E j A 8 C8 A0 EA EF 

9030: F5 F2 Am E4 E5 hC EC El A£ F4 EJ F4 E5 A0 AD Ah 

9040: 08 CA CA AF CD CD AF Cl Cl 00 C5 F4 E5 F3 AD F6 

9050 1 EF F5 F3 m E4 A7 El E3 E3 EF F2 E4 A0 AB CF AF 

R90,0: CE A9 A0 90 80 B6 A0 B0 B0 AS E0 E8 90 B9 E0 A8 

9070: B6 B0 A0 B0 B0 00 B0 00 IF iC IF IE IF IE IF IF 

908Q: IE IF IE IF 48 DA 5A 38 AD 54 C0 20 6E 93 A9 40 

•='090 : 85 43 20 1 1 C3 AD 55 C8 20 6E 93 A9 44 85 43 20 

L90A0: 11 C3 AD 54 C0 20 C9 91 A9 09 20 24 FC A9 IB 85 

98B8: 24 64 32 A9 25 A0 90 20 3A DB A9 FF 85 32 A9 0C 

90C0: 20 24 FC A9 24 S5 24 A9 41 A0 98 20 3A DE 20 60 

O90D0 : 92 20 C5 92 A0 S3 20 4E 93 AC 76 90 C0 01 30 19 

90E0: C0 0D 10 15 E9 77 96 48 A0 00 20 4E 93 AD 76 90 

90F6: F0 07 63 38 ED 76 90 10 08 78 20 3A FF 58 4C A8 

C9100: 90 20 D5 92 20 32 93 A9 00 28 24 FC A9 08 85^24 

9110: A9 6D A0 98 28 3A DB 20 83 93 20 C9 91 A9 09^28 

9120: 24 FC A9 IB 85 24 64 32 A9 08 A8 90 20 3A DB A9 

E9138: FF 35 32 A9 8C 20 24 FC A9 24 85 24 A9 IC Ay 90 

9140: 20 3A DB 28 6D 92 20 C5 92 A0 88 20 4E 93 AD 76 

9150: 98 C9 18 10 IS A8 83 20 4E 93 AD 76 90 C9 3C 18 

9160 1 0C A0 86 28 4E 93 AD 76 90 C9 3C 30 08 78 28 3A 

9178: FF 58 4C ID 91 28 D5 92 A8 07 B9 64 98 09 B8 99 

9180: 94 95 83 10 F5 A8 82 A9 BA 99 94 95 A0 05 A9 A0 

9198: 99 94 95 18 AD 54 C8 20 81 93 A9 48 85 3D A9 43 

C91A0: 85 3F 20 11 C3 1 3 AD 55 C8 28 81 93 A9 44 85 3D 

91 B0: A9 47 85 3F 20 11 C3 A? 17 65 25 20 24 FC A9 81 

91 C0 : 85 24 28 F0 FD 7A FA 68 68 A9 IB 28 F8 FD A9 4C 

91D9: 85 19 A9 88 85 25 29 2B 92 A9 10 85 25 28 2B 92 

91 E8: A9 5A 85 19 A9 19 35 ID 28 37 92 A9 5F 85 1 9 A9 

91 F0: 37 35 ID 20 37 92 A5 20 48 A5 21 48 A5 22 48 A5 

tt 9280: 23 48 A6 1 C 36 20 A5 IE 38 E5 IC 35 21 A4 IF CS 

2= 9210: 84 22 A4 IE 34 23 28 58 FC 63 85 23 68 85 22 68 

z) 9228: 85 21 68 35 28 A9 1 8 28 F8 FD 68 A9 1A 35 IC A9 

S" 9238: 37 85 IB 28 43 92 68 A9 08 85 IF A9 10 85 IE 28 

9248: 57 92 60 A6 1 C A5 25 28 22 FC 36 24 A5 19 28 F8 

2 . 9250: FD E8 E4 IB 38 F4 68 A4 IF 84 25 26 22 FC A5 ID ?AD4 

=>S 9268: 85 24 A5 19 28 F8 FD CS C4 IE 30 ED 6* A0 88 A9 

oj c 9278: 0C 85 25 28 24 FC A2 24 86 24 DA 5A 28 8C FD Cv 

5 g 9280: SA D8 87 7A FA 68 68 4C 1A 91 C? 8B D0 87 7A FA 

2 ^ 9299: 68 63 4C A5 90 C9 9B D8 07 7A FA 68 68 4C 93 91 

oj ^ 92A0: C9 B8 36 DS C? BA 10 D4 7A 99 64 90 28 F0 FD C8 

2 Je 9280: FA E8 C8 82 F8 8A C8 85 F8 86 C8 88 F8 8 6 88 B3 

L! |- 92C8: C8 E8 88 B4 68 A8 98 B9 64 98 49 B0 99 64 98 C8 

o S 92D0: C9 03 D0 F3 62 A9 3E 85 25 26 24 FC AS IB 84 24 

92E0; A9 4A A8 90 20 3A DB A9 0E 85 25 28 24 FC A2 35 

E-g 92F0 : 86 24 28 8C FD C9 CF F0 89 C9 CE D8 F5 68 68 4C 48DC 

§ 9300: A5 90 60 A0 06 28 4E 93 AD 76 98 8A 8D 91 BF 28 

^ 9318: 4E 93 AD 76 90 8A 8A 8A 0A @A 8D 98 BF AD 91 8F 

£ 9328: 69 80 8D 91 BF 28 4E 93 AD 76 98 8D 98 BF 3D 98 

°- 9338: BF 68 A8 08 B9 64 90 09 B0 99 6D 90 C8 C0 08 D8 

■2 9349: F3 A8 82 A9 AF 99 6D 98 A8 85 99 6D 90 68 A9 88 

(SUITE ET FIN PAGE 32) 
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Pour terminer : BSAVE HORLOGE,C.A$9000 ,LS5C2 



Ne soyez pas en retard d'une generation,,. 

1NITIEZ-VOUS AU LANCAGE MACHINE 

et offrez-vous les deux editions de TREMPLIN MICRO : 

* Le 6502 et le 65C02 PAS a PAS 

* CLINS D'OEIL AU 6502 DE L'APPLE (voir bulletin de commands) 



GUY-HACHETTE TRE 



UTILITAIRE 



Guy HACHETTE 



CREEZ 



vos caracteres graphiques 



Si vous avez deja essaye de concevoir vos propres caracteres graphi- 
ques, vous avez pg constater qu'il s'agrt d'une ceuvre de longue haleine 
— certes captivante, mais non mains fastidieuse. Cest pour vous que j'ai 
mis au point cette enieme version d un utilitolre de creation de caracte- 
res. Son utilisation est simple, mais avant d'en arriver la, je vous pro- 
pose de revenir sur quelques notions preliminaires indispensables. 

La representation d'un caractere 



a 


a 


Q 


I 


1 


1 


1 


a 


a 


a 


1 


g 








1 








a 


1 


a 


Q 


Q 


1 


o 


9 








i 


1 


1 


1 











1 











1 





a 





1 











1 


a 










1 


1 


1 


1 


a 








Q 








Q 


Q 
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Chargez un set {ou police] classique de caracteres ASCII a 
I'adresse $4000 (on peut le trouver sur les disquettes TOOL KIT, 
mais aussi sur bon nombre de disquettes franchises et americai 
nes... et vous en avez un exemple plus loin), Tapez CALL - 151, 
puis 41 10.41 17 et I indispensable RETURN. Votre ecran vous ren- 
verra probablement la ligne suivante : 

4110 - IE 22 22 IE 22 22 IE 00 
Ce sont les hurt octets capabies d'afficher un B en mode graphi- 
que. En les representant sous leur forme bin a ire, vous obtenez 
le dessin materialise ci-cantre, II s'agit bien dun B„. mais 
regarde dans une giace. Contrariant non ? D'ou la roison d'etre 
d un utilitaire qui vous autorisero a tracer normalement chacun 
de vos caracteres ! 



Le programme travaille pour vous ! 



UNE MATRICE 7 X 8 Vows ollez vows contenter d'une grille de 7 
coses de large (on negligero le 8* bit, reserve 
d la couleur, et qui sera automotiquement mis d 0] sur 8 de haut £8 
octets). A I'ecran, le trace sera materialise por des O majuscules et les 
bloncs par des accents circonflexes. Compatibility oblige : je n'oi fait 
que quelques dins d'ceif au langage machine et je n ai pas utilise les 
caracteres souris disponibles sur les dernieres machines, du mains 
dans ceite version (un programme plus elobore figurera dans ROUTI- 
NES LM pour 65C02 et 65Q2, ouvrage d paraTtre au debut de janvier). 

CARACTERES POUR LA CQIftEUR Si vous desirez creer une police 

capable de donner de borts 
resultats sur un ecran couleur, contentez-vous de doubler tous les 
points horizontaux isoles, comme vous 1 indiquedairement la portie en 

couleur du B materialise ci-contre. De cette moniere, vos caracteres seront forcement blancs (deux points 
positrfs places cote d cote produisent du blanc, quelle que soit leur couleur), Dans cet exemple, les codes 
du B deviennent TF 33 33 IF 33 33 IF 00 {Suit* page w 
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CREEZ VOS CARACTERES GRAPH1QUES «... 



ATTENTION ! (80 COlonneS I 

Ce programme necessite la 
presence d'une carte 80 colon- 
nes classique. La louche 
ESCAPE ne permettra pos de 
s'evader (voir la fin du tableau 
ci-contre) si Ton dispose dun 
Apple ancien modele. 

LOMEM Naus n'avons pas 
prevu de LOMEM, 
mais if peut etre necessaire 
(utilisation de longue duree) de 
fixer LOMEM au-dessus de la 
routine LM d'affichage. 
(LOMEM : 17400, par exemple). 

LONGUEUR Une seule lon- 
gueur pour ce 
type de police de caracteres : 
768 ($30fJ), Si vous desires 
creer des polices speciales, ne 
respect ant pos I'ordre etobli 
(1 = espace, 2 = point d excla 
motion, etc), il vous suffira de 
multiplier le nombre de carac- 
teres trees par 8 pour cannaltre 
la longueur reelle de votre set. 

MODE AUTOMATI0UE 

Attention ! si vous chargez une 
police existante, vous passez 
en mode automatique, Autre- 
ment dit r des que vous avez 
envoye un coractere [par 
RETURN et Oui.., la premiere 
tettre suffit), le suivant s'affi- 
che. Comment en obtenir un 
autre ? En tapont CTRL-A.., 
puis le code ASCII, tout simple- 
ment. Un seul moyen pour sor- 
tir du mode auto : ESCAPE et 
FIN DE PROGRAMME, Une 
astuce pour redemarrer sans 
effocer la police en memoire : 
GOTO 1( 



Et maintenant, place a la crea- 
tion d'un jeu original de carac- 
teres, propre a faire votre bon- 
heur et — qui sait ? — celui 
dautres Lectrices et Lecteurs 
de Tremplin Micro I 



RAPPEL DES CDMMANDES 

La grille est materialisee par les (accents circonflexes). 
On s'y deplace en utilisant les f leches de I'Apple, 

• TAB ou BARRE d 'espace ment permet de material iser 
un point et DELete de le supprimer. 

• V cree une coionne de points a partir du curseur (sauf 
sur la demiere ligne, peu utilisee) et petit v supprime 
les points d une colonne> 

• De la me me moniere, H cree une rangee de points a 
partir du curseur et h la supprime. 

• CTRL'E efface la grille. 

■ CTRL-G affiche lo fonte actuelle en mode graphique 
(en HGR). 

• CTRL-W depiace tous les points dune case vers la 
gauche. 

• CTRL-A pour oppeler un caractere dont on doit fournir 
le code ASCII (police nor male). 

• CTRL-R pour remplacer un caractere par celui que I'on 
vient de tracer (il faudra ensuite taper un RETURN). 

• CTRL-P pour charger une police existonte. 

• RETURN pour envoyer le caractere trace. 

• ESCAPE pour terminer a n'importe quel moment. Si 
I' Apple n'accepte pas ESCAPE en 80 colormes, taper 
CTRL-A puis 127 (dernier caractere). Envoyer par 
RETURN et I'on entre dans la phase finale, 

• Pour ne pos memoriser la police, fournir "Q" comme titre I 



COMMENT AFFICHER SIMPLEMENT LE CARACTERE DUNE 
POLICE EN HGR ? 

Chargez la police 6 l odresse $4000, puis essayez cette courte 
demonstration (pour orreter : CTRL-C) : 

10 HGR : HCOLOR = 3: HOME 

15 FOR I = 768 TO 785: READ R: POKE l,R: NEXT ; DATA 32, 
245, 230/138,160, 0,10, 162, 6, 10, 148,249,54,249, 202, 16, 
248,96 

20 VTAB22: INPUT '%Y, CARACTERE ";X,Y,C$ 
25 ADRESSE = 16384 + ( ASC (C$) - 32) * 8 
30 FOR F = TO 7: CALL 768, PEEK (AD + F) 
35 FOR L = TO 6: IF PEEK [249 + L) - 1 THEN HP LOT X + L. 
Y + F 

40 NEXT : NEXT : GOTO 20 ■ 
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Presence de la 
carte 80 colon nes 
obligate ire. 

Prevoir 

LOMEM : 17400. 

Toute erreur ren- 
voi e automati- 
quement a la routine de 
creation de police (sons 
modifier la valeur de C r 
numero du cararfere en 
cours), 

Une courre rou^ 
tine en LM ef- 
face 10 memo i re de $4QQQ 
o 42FF. Ainsi, les caracte- 
res non crees seront a 
zero. 

Aux odresses 6 et 
7 , on poke (e'est 
aussr celle de tout set de 
corocleres charge) ladres- 
se de la police a creer. 

Vers loffichoge 
d un resume [pres- 
age complet) des com- 
mondes. 

Affichage de la 
grille. 

Avant d aller 6 la 
routine d'affi- 
choge (page HGRJ, on sau- 
vegarde le contenu des 
□dresses 6-7, malmenees 
par cette routine (recupe- 
ree dans un oncien numero 
de TM el legerement 
raccourciej, 

WM^m Avec les anciens 
Apple, a [outer 
une ligne ainsi con cue : 
IF R = 94 OR R - 79 THEN 
H = H + 2: GOTO 170 

Deux possibility 

pour tracer un 

point : TAB et BARR6 

d'espocement. 

Uri-m Une seule solution 
pour efface r un 
point : la touche DELETE. 



Lbs d suiris bftrw indiqvent 

tfv'tl hoi taper vn CTM + k conc- 
ur* i/idiqui. in Sff coiomn, CTft-Q 
provoqve t'oHkhcqe, in mode 
far#rt# */ CTRl-ti f'mtorrompt. 




POLICE.CREER 



1 



188 
185 
118 

its 

128 

125 

138 
135 
148 
145 
158 
155 
168 



165 
178 
175 
188 
185 
198 

195 
288 
28 5 
218 



215 



228 



225 



230 



235 
248 

245 
258 
255 
260 
265 
279 
275 



TEXT : PRINT GKR* <4>"PR£3': PRINT * HOME 
ONERR 60T0 160 

PRINT CHR* <4)"B10AD POL! CE . LM" : PRINT CHR* 

(4>"8LQAD POLICE -HGR* 1 

CALL 819: REM $4988 COS 42FF Si zero 

PRINT TABC 28)"ctOCREATI0N 0' UNE POLICE GRAPH 

I QUE DE CARACTERESctN" 



POKE 6,8: POKE 
fonte 4 ereer 
GOSUB 338 
GOSUB 385 



7,64* REM *4888. adresse de U 



REM *** ctOCREATlON DE LA POLICEctN *#** 



C = C + 1 

POKE 1483,8; VTAB 3: CALL 
RACTEREclN" NUMERO "C - 
* <C + 31) 

V = 10 sH = 1 :R* = "» 



- 863: 
ASC "C 



PRINT 
+ 31": 



"ctOCA 
" CHR 



13 THEN K = 13: CALL - 198 
1 THEN H = 1 j CALL - 198 
18 THEN V = 10: CALL - 198 
17 THEN V = 17: CALL - 198 
HTAB Hi PRINT R*: VTAB V: HTA8 



IF H > 
IF H < 
IF V < 
IF v > 
VTAB V: 
R*: PRINT 

R = ASC ( m> iRt = 
IF R - 1 THEN 418 
IF R - 16 THEN 490 
IF R = 7 THEN A = 
B 22; CALL - 868: 
198: GET R$: PRINT : 
49233,8 : GOTO 165 
IF R = 86 THEN FOR 
I : PRINT "0" : NEXT : 
IF R - 72 THEN HTAB 
3 STEP 2: PRINT B " 
IF R = 118 THEN FOR 
li PRINT ■••| NEXT ; 
R = 184 THEN HTAB 
STEP 2: PRINT " A " 



H: GET 



PEEK <6);B = PEEK (7); UTA 
CALL 17152: PRINT : CALL - 
: POKE 6, A j POKE 7,B: POKE 



IF 

13 
8 

IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 



I = V TO 16: HTAB H: VTAB 
GOTO 198 
H: VTAB V: FOR 
; : NEXT : 
I = V TO 
GOTO 198 
H: VTAB 
: NEXT 



I = H TO 1 
PRINT : GOTO 198 
16: HTA8 H: VTAB 



V: FOR 
; PRINT 



1 = H TO 
: 6010 19 



R = 5 THEN GOSUB 318! GOTO 165 
R - 21 THEN H - H + 2: GOTO 170 
R = 8 THEN H = H - 2: GOTO 175 
R = 10 THEN V = V + 1 : GOTO 185 
R = 1 1 THEN U = V - i : GOTO 188 
R = 9 OR R = 32 THEN R* = "0": GOTO 
R = 1 27 THEN R$ = " J " : GOTO 190 
R = 13 OR R - 27 THEN 365 
R = 18 THEN 538 



198 



EDEA 
A6E7 

3568 
422E 

7E76 

A68B 
F846 
0148 
803A 

80 3A 
C74F 



A734 
42CE 
8799 
2835 
18BI 
CEBD 

CB26 
35*3 
4959 
2897 



39BF 
F618 
8857 
8453 



DC92 
598P 
9CCD 
9DA8 
F4EC 
7BE9 
8479 
BA94 
BDEE 
6F94 

(Suite pvge 36} 
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(suite) 



28@ 

285 
299 
295 
308 
305 
310 



315 
320 
325 

336 

335 
340 
345 
350 
355 
360 
365 



379 
375 
388 
335 
390 
3?5 

400 

405 
410 



415 
420 
425 
430 
435 
446 
445 

45& 
455 
460 
465 

470 
475 
480 
485 



IF R = 23 THEN CALL 913: GOTO 190 
GOTO 190 

> 
■ 

REM ctODESSIN DE LA GRI LLEcjtN **** 

POKE 32,0: POKE 33,80 

POKE 14B3 } 0: UTAB IB: FOR 1 = 1 TO 8: FOR J = 
1 TO 7: PRINT " 11 ; : NEXT : PRINT : NEXT i RET 
URN 

REM ***** clOCQMMANDES DI"JERSESc_tN ***** 

RESTORE :U = 9: FOR I = 1 TO 10 : IF I > 5 THEN 
U = 18 

READ A*: POKE 1403,46: VTAB I + U: PRINT At 

NEXT 

RETURN 
■ 

REM **** ciOUN CARACTERE TERMINEc_tN **** 

UTAB 22: CALL - 868: PRINT "Bien d' accord pou 
r rnemoriser ce carac tere ( ou i/non ) c_t6 N ; t GET 
R*r PRINT : IF R* - »□" OR R* = "0" THEN 375 
60T0 165 
CALL 768 

IF R = 27 OR C = 96 THEN 445 

IF P AND (C + i) < 97 THEN R = C + !l GOTO 425 

GOTO 135 

■ 
i 

REM *** cJORAPPELER UN CARACTEREctN **** 

UTAB 22: CALL - 868: INPUT "Quel est le carac 

tere a rappeler (code ASCII) ctG" ?RS: IF R* = 

M THEN 198 

R = 7AL tRt) - 31 

IF R < i OR R > 127 THEN 410 

CALL 841 ,RsC = R: GOTO 160 

■ 
■ 

REM **#**ciO T1TRE DE LA PGLlCEctN ***** 

YTAB 22: CALL - 363: INPUT "ctOTlTRE DE UOTRE 

POLICE ? ctN" jTf 
IF T$ - " " THEN 445 
IF T$ - u 0" THEN 465 

PRINT CHR* - 4)"BSA^E'T*" ,A*4009 , L768" 

UTAB 22: CALL - 868: PRINT "&GOTO 1069 POUR R 

ETROUUER T0UTE3 LES DONNEES" t UTAB 21 

ETJD 

REM **** ctOCHARGEMENT DE POLICEctN **** 



87A9 
3B45 
09 3A 

003A 

3C67 



6D5E 
093A 

003A 

77ED 
57D3 
0582 
63B1 
003A 

003A 



6FC7 
4347 
8331 
E6E9 
ED3A 
2144 
003A 

993A 



96AA 
CEFB 
6DE3 
75C2 
093A 

083A 

744 1 ? 
43*?A 
AFCC 
9309 

57B1 
9136 
093A 

093A 



ITTl Un CTRL W en- 
voi e a une rou- 
tine qui deplace Timage du 
caractere d un espace vers 
la gauche. On n a rien 
prevu dans les autres sens, 

Le tableau des 
commandes pour- 
rait etre plus complet, mats 
rien ne vous irrferdil de lui 
adjoindre celies qui ant 
vo I onto i rem en t ete omises, 
pour ne pas charger inutile- 
ment la page. 

II faut obligatoi- 
rement repondre 
par ou o pour que les 
codes du coractere en 
cours soient cakules et 
memorises. Toute outre 
reponse renvoi e au carac- 
tere. Sinon. la grille rede- 
vient vierge ou r dans le cas 
de Sexploitation dune 
police exi$tante { P = I),, le 
caractere suivant est 
affiche ! 

Quand on rap- 
pel le un carac- 
tere par CTRLA, le nume- 
rotage report a portir de ce 
caractere. Ce nest pas 
grave dans le cas ou une 
police a ete charged (P = 1 
- mode auto), mais si on 
travaille en mode normal 
de creation revenir a u der- 
nier caractere cree par un 
autre CTRL- A. Rassurez- 
vous : on s'y fait tres vite et 
il est toujours possible de 
controler le travail en 
cours par un CTRL-W. 

y.;,j-l GOTO lOOfl vous 
permettra de 
vous tirer d un mauvais pas 
[DISK FULL,,, par exem- 
ple). Notez d ce propos que 
vous pouvez faire un 
BSAVE FONTE, A $4000. 
(1300 de votre fonte en 
mode direct (elle est bien 
la !j. 
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GUY-HACHETTE 



facile 



II est 

d'obtenir le ca- 
talogue de disQuette en 
fapanf le ? 



Sous PRO0OS r si vous 
change* de disquette, 
veillez 6 ce qu elle ait le 
meme prefixe.-. ou modi- 
fier le programme 6osic 
en ajoutant par exemple : 

,D!ou.$*,Dl 

aux commander DOS ou 
PRODOS. 



Le numero d'cr- 
dre est calcule a 
partir du code ASCII du 
caractere demands , ma is 
e'est enfanlin, le premier 
caractere etant l espoce 
(32), le numero d'ordre 
est toujours egal a : 
Code ASCII -31 



490 

495 

508 
595 

519 

515 
520 
525 
53* 

535 
540 

545 
550 
555 



560 
1060 



VTAB 22: CALL - 868; INPUT "NOM DE LA POLICE 

<ciOCATALOGUEctN = ? ctG; " ;F* 

POKE 34,5; HOME : POKE 34,6: 60SUB 330: G0SU9 

395 

IF Ff = • " THEN 190 

IF Ft = u ?" THEN POKE 34 ,5: HOME : PRINT CHR 
$ (4) "CATALOG 1 : PRINT : PRINT ; GOTO 499 
PRINT CHR* '4) "BL0AD"FV ,A*40 00 n :R = 1 iP ~ 1 : 
GOTO 425 

REM *** ctOUN CARAC POUR UN AUTRE ctN *** 

UTAB 22 i CALL - 868: INPUT "Code ASCII du car 
actere a remplacer ctG" fR*: IF R$ - THEN 1? 

8 

C = UAL <Rf) - 31: IF C < 1 OR C > 96 THEN 53 



R = 16376 + C * 3: POKE 6,R - INT (R / 256) * 
256: POKE 7, INT ( R / 256) 
CALL - 198; GOTO 160 

DATA "DE PLACEMENTS : FUches de 1 'Apple p , "MATER 
IALI5ER: Tab ou barre d'espacement V' " 5UPPRI 

HER J Delete"," T ERMINE : Escape"," DEL GRI 
LLE: Ctrl-E" /LIGNE PLEINE: H ou V" , " LIGNE V 
IDE : h ou u" 

DATA " CAR A RENOIR: Ctr 1 -A" , "POLICE EXIST: Ctr 
1 -P" , " REMPLACE CAR: Ctrl-R" 
POKE 51 ,0: HOME : GOTO 120 



2A24 

A8GA 
9689 

468? 

6267 
00 3A 

603A 



B73E 

30C3 

051F 
E<?73 
003A 



AF6C 

9B94 
5EC4 



Fonteamerieaine 
Police fran^aise 



Si vous recuperez une police omericaine, amusez-vous a fa 
transformer pour lutiliser en francais.., II faut remplocer les 
caracteres 35, 64. 91. 92, 93, 96. 123, 124. 125 et 126 par 
d authentiques caracteres francais. Pour vous oider, void un 
exemple de trace pour une police de type ASCII : 



* Attention \ n* contends pas fa potUv ciatsiqu* (768 octets : B octets par caracttre) av 9 c for fontei uiiUtablvs par DRAW i 



36/133 





■ 






■ 


u 


■ 


■ 








■ 


L 


■ 










n 


r 


r 










■ 


r 


■ 


■ 








■ 

f 


c 


p 


■ 






■ 




! ! 


1 






■ 


■ 


■ 


■ 


■ 





96 $60 



i>4 UO 









■ 


rr 










■n 






■ 


■ 


■n 












■ 


■ 


nrnra 




■ 








■ 


■ 


ULULi 


1 











123 $7 B 



mmr 
mrm 

■EC 
Lll 

irn~nr 

ru 

■EE 



9 1 SSB 
■ 



124 $7 C 



.■ 






•i 



































■ 


■ 


■ 


■ 






m 














■ 
















■ 






















to 




- 









V 




■LJI 

JBI 

ini 


■■Li 


■ 


If II 
111 






■ 





n/$§o 





■ 


m 


■ ■ 


















m 


m 


■ 
















■■nnni 


■ 




m 













126/J7E 
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DAL 


iri 

IVI 


E 1 


LH 




9 


9300- 


A2 


00 




LDX 


£$00 


302- 


8A 






TXA 




0303- 


69 


09 




ADC 


£$0<? 


0305- 


28 


CI 


FB 


JSR 


tFBCl 


0398- 


A0 


07 




LDY 


£$07 


830A- 


2C 


55 


ca 


BIT 


$C055 


039D- 


61 


28 




IDA 


C$28) jY 


030F- 


2C 


54 


C0 


BIT 


$C054 


0312- 


4A 






LSR 




0313- 


36 


19 




ROL 


$18, X 


a 3 i 5 - 


38 






DEY 




0316- 


1 


F2 




BPL 


$030A 


e 3 1 a - 


E8 






INX 




031*- 


E9 


09 




CP'-< 


£$08 


031B- 


90 


E5 




ecu 


$9302 


031D- 


A0 


07 




LDY 


£$07 


031F- 


B<? 


18 


09 


LDA 


$0018, Y 


0322- 


91 


06 




STA 


C$06) ( Y 


032*1- 


88 






DEi 




0325- 


10 


F3 




BPL 


$031F 


0327- 


A5 


96 




LDA 


$06 


0329- 


18 






LLC 




032A- 


69 


08 




ADC 


£$08 


B32C- 


35 


06 




STA 


$06 


032E- 


90 


92 




BCC 


19332 


0330- 


E6 


07 




INC 


$07 


0332- 


60 






PT5 


NETTC 












n ■ ■ 


333- 


A9 


40 




LDA 


e$46 


0335- 


85 


07 




STA 


$87 


0337- 


A2 


63 




LDX 


£$03 


0339- 


A0 


00 




LDY 


£$90 


0336- 


34 


86 




STY 


$06 


033D- 


98 






TYA 




033E- 


91 


06 




STA 


<$06> ,Y 


9340- 


38 






DEY 




0341- 


D0 


FB 




BNE 


$033E 


0343- 


E6 


07 




INC 


$07 


8345- 


CA 






DEX 




346- 


D0 


F6 




BNE 


$033E 


0348- 


60 






RTS 














- RAPPE 


0349- 


20 


F5 


E6 


JSR 


$E6F5 


34C- 


A9 


40 




LDA 


£$40 


934E- 


85 


07 




STA 


$07 


0350- 


A9 


60 




LDA 


£$80 


352- 


CA 






DEX 




8353- 


F0 


09 




BEQ 


♦B35E 


0355- 


18 






CLC 




0356- 


69 


08 




ADC 


£$08 



(BSAVE POLICilM.A$3gg r L$B5) 



X - Q passe dans A. 



+ 9 pour VTAB. 

BASCALC foumif ladresse de lo ligne. 

Y = 7 (nombre de positions horiz.). 
TXT page 2. 

Lecture de la memoirs $28-29 + Y. 
TXT page 1 . 

Decalage a droite (bit sortant dans retenue). 
La retenue rentre a droite dons $18-19 + X* 

Y = Y - 1 , 

Si Y est plus grand ou egal a zero : boucle, 
SinonX = X + 1. 
X est-il egol 6 8 ? 

S il est inFerieur, an continue le travail. 

Y = 07, 

Transfert des octets du caractere cree dans la police 
(6l'adresse$6-7 + Y + 7 a 0). 



On incremente Padresse-palice caractere de 8 pour le 
caractere suivant. 



Retour au Basic. 
se saooo-a2i 



$40 dans I'occumulateur pour adresse-police ($4000), 

X - 03, 

Y = 00 est stocks dans la partie basse de l adresse-police. 

Y dans A. 

dans $6-7 + Y ; 

Y = Y - 1 ; 

on continue a mettre les memoires a 0. 

Partie haute de I adresse police incremented 
et X = X - 1 pour un nouveau tour. 

Lo partie $400O-42FF est a zero. 
UN CAHACTERE 



] 
] 

] 



GETBYTC saute un caractere : GETBYT evalue ^'expression. 
Adressede lo police ($40001. 

A = et X (fourni par GETBYT a partir du Basic) = XI. 
Si X = 0, saut. 

Annulation de la retenue pour I'addition. 



OUY-HACHETTE 



vuuD 


9fl 


Fft 

r o 




C L L 


ifcfl OR 1 ! 


a q ft a _ 


FA 
c a 


1 7 




1 Mr 

1 MIL 


*o / 


635C- 




F4 




BNE 

Oil 


*QT59 


935E- 


85 


06 




c :TA 

m 1 1 1 


"F 1/ W 


8369- 


86 


18 




3T>: 


$18 


y 362- 


8A 






TYA 




(3363- 


18 






CLC 




t?364- 


69 


09 




ADC 


£$89 


9366- 


28 


CI 


FB 


JSP 


■$FBC1 


9369- 


A4 


1 8 




LDY 

l— l- l 




036B- 




06 




1 HA 


'-.POO/ j f 


936D- 


AS 


07 

u t 




L L 1 


t * u / 


836F- 


BA 






nOL 




8370- 


9A 






r-t _• U 




0371 - 








— rlrt 




8372- 


90 


04 




Ftrr 


* t. 1 ,• •_' 


0374- 


A9 


CF 




<_ L- rl 


E * L -T 


3 37*- 


D8 


82 




RNF 

□1 J c 


+ tj j rn 


379- 


A9 


nr 




1 Pui 


LTL't 


837A- 


2C 




C9 


PIT 


9 L-O J J 


937D- 








L/C 1 




037E- 


91 






a 1 H 










rn 
L u 


R T T 






A.9. 
oo 






Dl A 

r LR 






La 






I NY 




33B5- 


88 






DEY 




0386- 


D6 


E8 




BNE 


$0370 


0338- 


E6 


18 




INC 


$18 


938A- 


A5 


18 




LDA 


$13 


033C- 


C9 


08 




CMP 


£$08 


938E- 


99 


D3 




BCC 


$0 363 


0390- 


60 






RTS 





J 



Pas de retenue : on saute. Sinon on increment© la partie 
haute de ladresse. 

Ne pa$ oublier la partie basse modifiee, 
X dans $1 8 
et X dans A. 

AnnuJation de la retenue pour addition (VTAfl vrat) ef 
BASCALC Fournit l adresse. 



: 



DECALAGE DU 



Recuperation de HTAB. 
Lecture de la memoire $6-7 + Y. 

Y = 7. 

Un decalage bit inutilise. 
Un decalage a gauche. 
Resultat empile. 
S f il n'y o pas de retenue, saut. 

| Autrement : O dans A et petit saut. 

Accent circonflexe dans A. 
TXT page 2. 

Y = Y- 1 

et on place ie caractere a Tadresse $28-29 + Y. 
TXT page 1 > 

Recuperation de A sur la pile. 



Si Y n'est pas a zero, on vo vers un nouveou decalage. 



Memoire $18 incrementee. 

Si on est infeneur a 8, le processus recommence. 



Retour au Basic. 
ARACTERE VERS LA CAUI 



J 



0391- 


A2 


10 




LDX 


£$10 


0393- 


8A 






TXA 




9394- 


28 


CI 


FB 


JSR 


JFBC1 


9397- 


A9 


90 




LDY 


€$88 


8399- 


2C 


55 


CB 


BIT 


$C055 


839C- 


C8 






I NY 




039D- 


Bl 


28 




LDA 


($28) ,Y 


9 3?F- 


88 






DEY 


93A9- 


91 


28 




STm 


<$28) r Y 


83A2- 


C8 






I NY 


83A3- 


C0 


87 




CPY 


£$07 


83A5- 


D8 


F5 




BNE 


$039C 


93A7- 


88 






DEY 




83A8- 


A9 


DE 




LDA 


£$DE 


93AA- 


91 


28 




STA 


C$28) ,Y 


83AC- 


CA 






DEX 


93A0- 


E0 


89 




CPX 


£$89 


03AF- 


10 


E2 




BPL 


$9393 


9381- 


2C 


54 


C0 


BIT 


$C054 


9384- 


69 






RTS 





Au depart, on est sur lo derniere ^igne de la grille, 

Y = a. 

TXT page 2. 

Y = Y + 1 pour lecture. 

Y = Y - 1 pour ecritgre (on ecrose I'octet). 

Y retrouve sa valeur et on continue aussi longtemps que 

Y n'est pas egal d 07. 

Y = Y - ] pour metfre l occent circonflexe 
dans le dernier octet. 



X = X- 1. 

On renouvelle l operation jusqu'a X = inclus. 



Retour TXT page 1 , 
BASIC 



(Page 40 ; POLICE MGR) 
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[BSAVE POLKt.HGMS43M.LS6E) 



Affichage d'une police graphique tlassique a partir de I'adresse $2000- 



4^fifl - 

*t JO 


£. V 


F7 F3 


,FSP 


* r q r g 






v o 


STA 

J 1 M 


$06 


4 ^fl ^ - 




flH 




$&8 

■P v M 


4387- 


A9 


93 


LDA 


£$03 


4399- 


95 


1 9 


STA 


$19 


4 308- 


m'-' 


40 


LDA 


£$40 


438 D- 


85 


A? 


STA 


$97 


430F- 


.'n 




POP 




4 q i q _ 


B3 





STA 

O 1 i-i 




491 2- 


A 9 
n 


?rt 
i. O 


1 DA 

i_ uri 


£$28 


431 4^ 


85 


1 R 
i - 


STA 


$18 


4316- 


An 
in u 


09 




£$00 


431 8- 


A5 


68 


LDA 


$68 


431A- 


85 


9A 


STA 


$0A 


431 


A5 


09 


LDA 


$0? 


431 E- 


85 


98 


STA 


$9B 


4328~ 


Bl 


66 


LDA 


($06) ,Y 


4322- 


43 




PHA 




4323- 




90 


CPY 


£$9 


4325- 


F0 


1 


BEQ 


$4337 


4327- 


84 


9C 


STY 


$ 9 C 


4329- 


A6 


0C 


LDX 


sec 


432B- 


A5 


8B 


LDA 


$9 8 


432D- 


1 8 




CLC 




432E- 


69 


04 


ADC 


£$B4 


4330- 


CA 




DEX 




4331 - 


D0 


FA 


BNE 


$432D 


4333- 


85 


ie 


STA 


$0B 


4335- 


A 4 


9C 


LDY 


$9C 


4337- 


68 




PLA 




4338- 


81 


9A 


STA 


C$6A,X) 


433A- 


C8 




I NY 




433B- 


C9 


68 


CPY 


e$68 


4330- 


98 


D9 


BCC 


$4318 


433F- 


A5 


66 


LDA 


$06 


4341- 


18 




CLC 




4342- 


69 


AG 


ADC 


£$03 


4^44- 

— w — — 






STA 


I 6 


4346- 


°0 


62 


BCC 


$434A 


4348- 


E6 


97 


INC 


$07 


434A- 


E6 


98 


INC 


$06 


434C- 


D8 


62 


BNE 


$4350 


434E- 


E6 


00 


INC 


$69 


4350- 


C6 


18 


DEC 


$13 


4352- 


oe 


C2 


BNE 


$4316 


4354- 


C6 


19 


DEC 


$19 


4356- 


F9 


15 


BEQ 


*436D 


4358- 


A5 


98 


LDA 


$0 8 


435A- 


18 




CLC 




435B- 


69 


58 


ADC 


£$58 



: 
: 

i 



HGR initialise et efface la page. 

Comme A est d r on en profile pour mettre !es parties 
basses de $6-7 et $8-9 a 0. 

$3 dans $19 (nombre de lignes), 

$40 dans partie haute $6-7 ($4000) : adresse-police, 
Ou $40 devient $20 

pour partie haute $8 9 f$200(3) ; adr.KGR. 

$2S {40} dans $18 : nombre de carocteres par ligne, 

Reglstre Y initialise a 0. 

Recuperation de I'adresse de memo dans $A-B. 



| On lit un octet du caractere ($6-7 + Y] et on fempile. 

Si Y est ega I a zero , joli petit sout, . * 

Slnon r Y memorise en $C. 
ou X le recupere. 

Adresse affkhage - adr, +4... 
autont de fois qu'il y a de X. 

j X = X - 1 et suite si Ton n'est pas a zero, 

Nouvelle valeur de $B. 
Recuperation de la valeur de Y, 
"1 On retrouve A sur to pile 
I et il reste d le poquer en $A-B + X. 

Y = Y + 1 . Si Y est inferieur a 8, il faut poursuivre les 
operations. 



Adresse lecture incrementee de B, 
mais adresse affichage incrementee de 1 
($6-7 + 08, mais $8-9 +1). 



1 



Nombre de coracteres par ligne decrement^ on continue 
oussi longtemps qu'il n'est pas a 0, 
Quond il atteint zero, nombre de lignes decrements 
Si celui ci est d zero, saut cor on a fini. 

Pour une nouvelle ligne, odr. = adr. + $58. 



40 
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435D 

435F 

4361 

4363 

4365- 

4367- 

4369- 

436D 



65 68 
90 02 
E6 09 
A5 i* 

C9 01 

oe A9 

A? 19 
D0 A7 

69 



STA 
BCC 
INC 
LDA 
CMP 
BNE 
LDA 
BNE 
RTS 



$4312 

£$18 

$4314 



$09 
119 
€$01 



$98 
$4363 



Termine ! 



Ou en eston du nombre de lignes ? 

S'il n est pas egal □ 1 (derniere 6 Iraiter), on renvoie a 1 

ligne ds 4Q caracteres \ 

Sinon il ne rests que 16 caracteres pour lo derniere 
(40 + 40 + 16 = 96), 



ASCII. F 



3 



(BSAVE ASCII. F.A$4g0O,L$2FF) 



4009: 





00 


00 


M 


00 





00 


00 


( ) 


03 


93 


8 


3 


08 


00 


63 


00 


4818 : 


14 


14 


14 


00 


00 





00 


00 


(') 


13 


24 


04 


IE 


04 


64 


3A 


06 


4020 : 


S3 


3C 


0A 


1C 


28 


IE 


63 


00 


(*) 


26 


26 


16 


08 


04 


32 


30 


00 


4030 : 


4 


0A 


0A 


4 


2A 


12 


2C 


00 


(ir) 


08 


68 


03 


00 


60 


66 


80 


00 


4040 j 


08 


04 


02 


02 


02 


84 


03 


00 


(ii 


03 


IB 


26 


26 


26 


10 


8 


00 


4050 J 


8 


2A 


1C 


08 


1C 


2A 


3 


06 


(*) 


00 


03 


03 


3E 


08 


08 


06 


00 


4060 : 





00 


0G 





08 


08 


04 


00 


<l> 


00 








3E 


00 


00 


36 


60 


4070 : 


00 





00 


00 


00 


00 


83 


06 


( ( ) 


00 


20 


10 


68 


04 


62 


00 


00 


4080 : 


ic 


22 


32 


2A 


26 


22 


1 C 


66 


(8) 


03 


0C 


08 


93 


08 


08 


IC 


00 


4@96 : 


1C 


22 


28 


18 


04 


2 


3E 


00 


<2> 


3E 


20 


10 


18 


20 


22 


IC 


00 


4 mam : 


10 


18 


14 


12 


3E 


10 


10 


06 


(4) 


3E 


02 


IE 


26 


20 


22 


IC 


00 


4 60 : 


33 


04 


2 


IE 


22 


22 


IC 


00 


(6) 


3E 


20 


10 


08 


64 


04 


84 


60 


46C0 : 


ID 


22 


22 


IC 


22 


22 


1C 





(8) 


IC 


22 


22 


3C 


20 


10 


0E 


00 


49 D8 : 


00 


00 


03 


00 


3 


00 


00 


00 


(:) 


00 


06 


03 


00 


3 


68 


04 


00 


40E0 : 


10 


08 


04 


02 


04 


8 


10 


00 


CO 


00 





3E 


6 


3E 


00 


AH 


00 


40F0 ; 


84 


8 


10 


20 


10 


08 


04 


00 


(>> 


IC 


22 


10 


08 


03 


66 


08 


89 


4100 i 


5 


10 


1C 


20 


3C 


22 


3C 


00 


<a> 


03 


14 


22 


22 


3E 


22 


22 





4110: 


IE 


22 


22 


IE 


22 


22 


IE 


00 


(B) 


IC 


22 


y2 


62 


02 


22 


1 C 


00 


4120 : 


IE 


22 


22 


22 


22 


22 


IE 


00 


(D) 


3E 


02 


2 


IE 


02 


62 


3E 


06 


4130 : 


2E 


02 


02 


IE 


02 


02 


02 


60 


<F> 


3C 


02 


02 


62 


32 


22 


3C 


00 


4i 40 : 


22 


22 


22 


3E 


22 


22 


22 


60 


<H> 


IC 


00 


6 8 


03 


63 


03 


IC 


08 


4150 : 


20 


20 


20 


29 


20 


22 


1C 





<J) 


22 


12 


0A 


06 


0A 


12 


22 


00 


4160 : 


02 


2 


2 


02 


2 


02 


3E 


66 


(L) 


22 


36 


2A 


2m 


22 


22 


22 


00 


4170 : 


22 


22 


26 


2A 


32 


22 


22 





w 


IC 


22 


22 


22 


22 


22 


I c 


80 


4180 : 


IE 


22 


22 


IE 


02 


02 


02 


00 


(P) 


IC 


22 


22 


22 


2A 


12 


2C 


00 


4190 : 


IE 


22 


22 


IE 


0A 


12 


22 





<R> 


IC 


22 


02 


IC 


20 


22 


IC 





41A6 : 


BE 


03 


03 


08 


3 


03 


08 


00 


<T> 


22 


22 


22 


22 


22 


22 


1 c 


00 


4180 : 


22 


22 


22 


22 


22 


14 


08 


00 


(U) 


22 


22 


22 


2A 


2A 


36 


22 


80 


4 ICQ : 


22 


22 


14 


08 


1 4 


22 


22 





<X) 


22 


22 


1 4 


03 


03 


08 


3 





4100: 


3E 


20 


10 


03 


04 


02 


3E 


00 


CZ> 


0E 


0A 


0E 


00 


00 


30 


00 


00 


4 1 Em ; 


00 


00 


31 


02 


02 


3C 


10 


03 


<S> 


IC 


22 


IC 


22 


IC 


20 


IE 


00 


41F0 : 





00 


03 


14 


22 





00 


60 


(*) 


00 





00 


00 


00 


00 


80 


7F 


420 : 


64 


08 


10 


00 


00 


00 


00 


00 


C) 


00 


00 


IC 


20 


3C 


22 


3C 


00 


4210 ; 


2 


02 


IE 


22 


22 


22 


IE 


00 


(b) 


00 





3C 


2 


02 


02 


3C 


00 


4220 : 


20 


20 


3C 


22 


22 


22 


3C 


00 


(d) 


00 


00 


IC 


22 


3E 


82 


3C 


00 


4230 : 


18 


24 


04 


IE 


04 


04 


4 


00 


(f) 


00 





1 c 


22 


22 


3C 


26 


IE 


4240 ; 


02 


02 


1 E 


22 


22 


22 


22 


06 


(h> 


08 


00 


0C 


03 


08 


6 8 


1 c 


00 


4250 t 


1 


00 


18 


10 


10 


10 


12 


0C 


(j) 


02 


82 


22 


12 


0E 


12 


22 


8 


4260 ! 


0C 


08 


03 


03 


03 


03 


IC 


00 


CI) 


66 


00 


36 


2A 


2A 


2A 


22 


60 


4270 : 


30 


00 


IE 


22 


22 


22 


22 


06 


(n) 


00 


00 


IC 


22 


22 


22 


IC 


88 


4230 : 


00 


00 


IE 


22 


22 


IE 


02 


02 


(p) 


00 


06 


3C 


22 


22 


3C 


28 


20 



TREMPL IN MICRO 



(!) 2D30 

(£) 72DC 
Oi> 6C62 
C> 759C 
O) CAE 
<*> D202 
(-) -6952 
</> 4546 
CI) 904E 
(3) F09E 
C5) 7E88 
(?) B43E 
<P> DBB6 
C;> 962C 
(=) F3B<6 
<?> 42BE 
(A) 0FD0 
«C) CF64 
(E) 5483 
<6> E738 
<I> 666A 
fK> 969 
(M) F35C 
<0) FCEC 
(0> F9 70 
(S) 0678 
(U> 2156 
(W) 7BD8 
Of) E730 
<■) A2EB 
(S> 966A 
<J EFBD 
(a) F0F2 
<c) 6924 
(t) F8D8 
<Q> DE44 
<i) 7EF2 
(k) A5F0 
<m) 7E26 
<o) 3A44 
(q) 4980 



ASCII. F 3 (suite et fin) 



4299: 98 00 3A 86 02 02 02 00 'r> 

42A0: 94 IE 04 04 24 13 00 <t> 

42B9: 99 00 22 22 22 14 08 00 (¥> 

42C0 : 00 00 22 14 03 14 22 00 <x> 

42D9: 60 80 3E 10 08 94 3E 00 <z> 

42E0: 64 08 22 22 22 32 2C 00 <ii) 

42F0 : 00 14 00 90 00 00 00 00 C) 



00 00 3C 02 1C 20 IE 00 (») 09DE 

00 00 22 22 22 32 2C 08 (u) 2D2E 

00 80 22 22 2A 2A 36 00 <w> 5A50 

00 00 22 22 22 3C 20 IE <y> 7C54 

10 03 1C 22 3E 62 3C 00 <*) 576A 

08 10 1C 22 3E 02 3C 00 (*) 78A2 

06 2A 14 2A 14 2A 00 00 24BA 



Attention \ ne pas taper les mentions en couleur. Elles vous indiquent a quel caractere correspond 
cheque groups de 8 codes. En bout de ligne, c est le code-controle verifiable ovec "SIGNATURE". 



• Pour ceux qui n'ont pas d ossembleur et possedent notre disquette SIGNATURE 



POLICE.HGR 



(BSAVE POLICE .HGR , AS43Q0 , L$6F } 



4300 ; 


20 


E2 


F3 


85 


06 


35 


3 


A9 


03 


85 


19 


A9 


4 


85 


07 


6A 


C936 


4310 : 


85 


09 


A9 


28 


85 


13 


A@ 


00 


A5 


8 


85 


0A 


A5 


09 


85 


88 


4016 


4320 : 


Bl 


ill 6 


43 


C0 


00 


F0 


10 


84 


0C 


A6 


0C 


A5 


96 


13 


69 


04 


2F36 


4330 i 


CA 


D0 


FA 


85 


0B 


A4 


0C 


68 


31 


6A 


C 8 


C0 


08 


98 


D9 


A5 


4865 


4340 : 


06 


13 


69 


03 


85 


06 


90 


02 


E6 


07 


E6 


03 


D0 


02 


E6 


09 


6943 


4350 : 


C6 


18 


D0 


C2 


C 6 


19 


F0 


15 


A5 


8 


18 


69 


58 


85 


08 


90 


B1F7 


4360 : 


02 


E6 




A5 


19 


C9 


01 


D0 


A9 


A9 


10 


D0 


A7 


60 






B182 


ILICE.L 


M 


(BSAVE POLICE. LM, A $300 ,l$BS) 


















0300 : 


A2 


00 


3A 


69 


09 


20 


CI 


FB 


A0 


07 


2C 


55 


C0 


Bl 


23 


2C 


7A67 


0310 : 


54 


C0 


4A 


36 


18 


88 


18 


F2 


E3 


E0 


03 


90 


E5 


A8 


07 


B? 


7 BO 8 


0320 : 


13 


00 


91 


06 


33 


10 


F8 


^5 


©6 


1 3 


69 


8 


85 


06 


90 




B990 


330 : 


E6 


7 


60 


A9 


40 


35 


87 


A2 


03 


A0 


00 


84 


06 


93 


91 


06 


81C0 


0340 : 


S8 


DS 


FB 


E6 


07 


CA 


D0 


F6 


60 


20 


F5 


E6 


A9 


40 


35 


07 


B3A0 


0350 : 


A9 


00 


CA 


F0 


09 


18 


69 


08 


90 


FB 


E6 


67 


D0 


F4 


85 


06 


97B9 


0340 : 


S6 


13 


8A 


18 


69 


09 


20 


CI 


FB 


A4 


18 


Bl 


06 


A0 


07 


0A 


3F62 


0370 : 


0A 


4 3 


98 


04 


A9 


CF 


D0 


02 


A9 


DE 


2C 


55 


C0 


38 


91 


23 


5639 


0330 : 


2C 


54 


CO 


63 


C8 


33 


D0 


E8 


E6 


IS 


A 5 


13 


C9 


3 


98 


D3 


1A9F 


390 : 


60 


A2 


10 


3A 


20 


CI 


F6 


A0 





2C 


55 


C0 


C3 


Bl 


28 


83 


E682 


8 3A0 : 


91 


23 


C8 


C0 


07 


D0 


F5 


38 


A9 


DE 


91 


23 


CA 


E0 


09 


10 


9E93 


03B0 : 


E2 


2C 


54 


CB 


60 
























A382 



Une suite logrque a CUNS D'OEIL AU 6502 : 

Des tas de petits programmes montrant clairement 
comment passer du Basic au Langage machine. 

Certains ont deja paru dans TREMPLIN MICRO, 
coiiectifTREMpLiNMoocrecucii + disqurttt : i6o f) mais ont ete revus. D'autres sont inedits. 



ROUTINES LM 

pour G5C02 et 6502 



42 



GUY-HACHETTE 



inmntimniHiiiiiiup 




Michel DEVAUX 



DU COO A L ANE 




M 



coq A 1 * anc 



ICHEL DEVAUX recidive. Cette fois, il nous 
propose un jeu relotivement simple, 
s'adressant aussi bien aux enfants qua 
leurs parents, Son seuJ defaui : il est long... long 
a taper et exige la presence, sur la disquette r 
dun dictionnaire de mots de 5 lettres. Aussi, 
exceptiannellement, les habitues des disquettes 
TREMPUN MICRO recevront ce jeu sur une dis- 
quette supplemental speciale (sans augmenta- 
tion de prix, qu'ils $e rassurent ! ). lis y trouve- 
ront aussi la fonte de caracteres parue dans le 
numero 5 de TM... et reutilisee dans le pro- 
gramme d aujourd hui. Commencons par le dic- 
tionnaire. Natez qu'ii n est pas indispensable, au 
depart, qu'il contienne un grand nombre de 
mots. Par contre, il est indispensable qu i! figure sur la disquefte avec so longueur prevue (L$3418). 

— CREADICO 









FROLE 




BILLE 








FOLLE 




FPELE 


PQLIR 




I 1 1 LIE 






flfJLLE 


GRELE 


FALIR 




HILLE 






MALLE 






PAHE 




FILLE 






SALLE 






P0L1E 




FIOLi 




FOLIE 


BALLE 






1 






T~ 





Hpple .ioue 




10 REM ENTREE DES MOTS 
12 REM 

14 HOME : PRINT CHR* k21> 

16 PRINT : PRINT " Ce program 

e permet la creation du fi N 
18 PRINT ; PRINT B chier DICTI 

ONNAIRE . II vous autor ise 1 ' 
26 PRINT : PRINT " a ecrire pu 

is A memoriser sur disque" 
22 PRINT : PRINT " des mots de 

cinq lettres utiles pour' 1 
24 PRINT : PRINT " "le jeu du C 

oq a 1 'Ane , " 
26 PRINT f PRINT 

s est imerez 
28 PRINT : PRINT 

* de mots,entrez une ligne" 
30 PRINT : PRINT " wide . .. " 



"' 'Lorsque uou 
auoir entre" 
" "" suf -f r sarmnen 



32 PRINT : PRINT 11 Appuvez sur 
une touche pour cornrnencer"; 
34 GET R$ 



7226 
6B3\ 

6724 

A858 

C277 

DF6B 

7FA4 

2EC4 
DB34 



36 

38 



HOME 



1 



62 



<M$,I ,1) 
R$(I) > "Z 



POKE 37911 ,8 
LET AD = 24576 :MOT = 
INPUT M* 

IF m = THEN 66 
IF LEN (M*> < > 5 TH 
FOR I = 1 TO 5 
LET R*U> = MID* 
IF R*<I> < "A" OR 
" THEN 62 
52 NEXT I 
54 FOR I = 1 TO 5 

POKE AD + I - 3 , ASC <R*(I)> 
NEXT I 

LET AD ~ AD + 5: GOTO 40 
PRINT "Mot incorrect ..." 
GOTO 40 

FOR 1 = 1 TO 5 
POKE AD + I - 1,0 
NEXT I 

PRINT CHR* <4>"BSAUE DICTIO 
NNAI RE t A$6000 , L$3419* 



42 
44 
46 
4S 
50 



56 
58 
6i3 
62 
64 
66 
68 
70 
72 



22EB 
7032 
FCF5 
6B62 
8E53 
14C1 
EA68 

1B8A 
9DCB 
I4C1 
82BC 
9DCB 
E3CA 
836 1 
7A9F 
14C1 
09A5 
9DCB 

3837 



TREMPLIN MICRO 



43 



18 PRINT CHR* (4)" BLOAD FONTE , 

LM" *F2F 

12 PRINT CHR* <4>"BL0ftD CGG.LM 

" 2 7 5 6 

14 PRINT CHRt (4> U BL0AD DICTIO 

NNA1 RE IJ EB65 

16 REM ctJciJ GOSUBctJ 

18 GOSUB 94 5E1D 

26 GOSUB 38 

22 GOSUB 196 094A 

24 IF JEU = 1 THEN GOSUB 308 

26 IF JEU - 2 THEN GOSUB 223 

28 GOSUB 362 0F4B 

30 IF R4 = "O ri THEN 22 

32 GOSUB 424 24A 

34 TEXT : HOME 1C5A 

36 END GIB* 

38 REM ctJctJDESSIN DE L'ECRANc 

tJ 
49 HGR 

42 TEXT : HOME 

44 GOSUB 114 2146 
46 HCOLOR= 7 49C9 
48 FOR I = TO 7 STEP 2 

59 HPLOT 0,1 TO 83,1 6ED9 
52 HPLOT 196,1 TO 279,1 

54 NEXT 8582 
56 HPLOT 0,19 TO a ,191 TO 279,1 

91 TO 279, It* TO 0,10 
58 HPLOT 252,182 78F3 

60 FOR I = TO 6,28 STEP .05 
62 HPLOT TO 252 + 2Q * SIN (I 

),163 + 20 * COS (I) 
64 NEXT 1 9DC8 
66 HPLOT 248,143 TO 248,140 TO 

254 1 1 48 TO 254,143 *F52 
68 HPLOT 246,140 TO 246,138 TO 

256,138 TO 256,149 
78 HPLOT 252,180 6CF1 
72 FOR I = TO 6,28 STEP ,05 
74 HPLOT TO 252 + 18 * SIN (I 

),163 + 18 * COS <I> 
76 NEXT I 9DC8 
78 CALL - 198: "/TAB 23: HTA8 1 

: CALL - v58 546E 
80 VTAB 23: HTAB 1: PRINT "Tape 

i 1 9 numero de Motre choix : 

F90F 

82 UTAB 23: HTAB 37: GET R*i IF 

R$ < "i* OR R* > M 2" THEN 82 *EB9 
84 HOME :JEU - MAL (R*) 



86 POKE - 16304,0: POKE - 143 

00, e 

83 POKE - 16297,0: POKE - 163 

02,0 

99 '.'TAB 1: HTAB 14: PRINT "C-u c 

oq a \ ' ane JI 
92 CALL PI 

94 REM ctJcUINlTIALISATION ctJ 
96 PRINT CHfl* (21) 
98 LET Rl = 16384: REM FONTE. LM 
100 LET R2 = 20556: REM EFFACEME 

NT DUNE PART IE D'ECRAN 
102 LET R3 = 20624: REM ROUTINE 
JOUEUR 

104 LET R4 = 21414: REM CE MOT F 
AIT-IL PARTI OU DICTI ONNAIRE 

? 

106 LET R5 = 21513: REM APPLE JO 
UE 

108 LET R6 = 20352: REM COMB I EN 
DE MOTS DANS LE DICTI ONNAIRE 
? 

110 LET REC = PEEK (37911) 
112 RETURN 

114 REM cUcJJPRESENTATION ctJ 

116 PRINT " DU COG A L ' ANE u 

116 PRINT " 



128 
122 
124 
126 
12S 
130 
132 
134 
136 



PRINT "Passez du Coq a 1 Ane 

: C'est a dire" j 
PRINT " d'un mot a un autre e 
n " ne mod i -f i ant qu ' " ; 
PRINT "une lettre et en "res 
pec tan t 1 ' ordre du" ; 

PRINT "mot precedent . 

- " • 

PRINT "Ecrivez les mots de u 

otre choix en ayant" ; 

PRINT "toute-fois conscience 

qu ■' App 1 e 1 es m#mor i " ; 

PRINT "se et qu y i 1 pourra 1 

es r£u t i 1 i ser & "un rl ; 

PRINT "autre moment du jeu C 

ev i tez done d / i n w ; 
PRINT "venter dee mots ... > 



138 PRINT "Deux possibility de 

jeu vous sont o-f -fer" ; 
140 PRINT "tes : ***** 

142 PRINT "1. "Jous jouez seuKe) 



OAEE 

39F8 

v4h3 
EC0F 

A455 
C183 

D300 
C2FD 

17FC 
DAFD 

B1FE 

848C 
63B1 

9BA2 

A5D6 

5686 

C549 

A69E 

08BD 

43FC 

FB77 

89CA 

2882 

CF24 

2B6F 

15A4 



44 



GUY-HACH6TTE 





et essayez d ■' e ta" ; 


4A79 


20 3 


POKE 21759 + I, PEEK (24575 




144 


PRINT "blir un record de dur 






♦ R ♦ t) 


4763 




ee """ 


336B 


219 


VTAB 11 i HTAB 3 + I : PRINT 




146 


PRINT "2. Uous jouez contre 






CHR* ( PEEK (24575 + R + I ) > 


F5A9 




lordinateur « 


AEE1 


212 


NEXT I 


ODCB 


149 


VTA 8 21 : PRINT " 




214 


LET MOT = 2:NM = 2 


2273 








216 


CALL Rl 


EC0F 




u 


9815 


218 


RETURN 


63B1 


158 


PRINT " ' 




228 


REM ctJctJJOUER CONTRE APPLE 






un moment s^p" ; 


A'45 




CtJ 




152 


RETURN 


6381 


222 


HCOLOR= 7 


49C9 


154 


REM ctJctJCADREctJ 




224 


HPLOT 13,167 TO 223,167 TO 2 




156 


IF MOT = 81 THEN CH = 83:0'.' 






23,187 TO 13,187 TO 13,167 


4DE7 




« 18: GOTO 178 


(301 


226 


LET J = 1 : GOSUB 154 


9779 


158 


IF MOT = 86 THEN CH = B9:CV 




228 


1 /FA B 23: HTAB 4: PRINT "A uo 






= 09: GOTO 179 


1FE4 




us de jouer . . . " : CALL Rl 


FC32 


160 


IF MOT = 11 THEN CH = 15:CV 




230 


LET I = INT ((MOT - 1) / 5) 


3B22 




= 88: GOTO 178 


28DC 


232 


LET I = MOT - I * 5 


22C4 


162 


IF MOT = 16 THEN CH = 21 :CV 




234 


LET MY = CW - 1 + I * 2 


2 060 




= 07: GOTO 179 


8DDD 


236 


LET MH - CH 


459A 


164 


IF NOT = 21 THEN CH = 27:CV 




238 


POKE 1 8 ,MH : POKE 7,MV 


1604 




= 86: GOTO 179 


08DE 


249 


LET AD = 21759 + <NM - 1) * 




166 


IF MOT = 26 THEN CH = 33:DJ 






5 


CAB 4 




= 95 f GOTO 178 


6CDF 


242 


POKE 20828, INT (AD / 256) 


A8F2 


166 


RETURN 


63B1 


244 


POKE 2081 9,AD - INT (AD / 2 




179 


POKE 6,CH: POKE 7 , CU : POKE 8 






56) * 256 


46AF 




,CH ♦ 6: POKE 9,CU + 16 


678F 


246 


CALL R3 


E811 


172 


CALL R2iX = CH - 1 :Y = CV - 




248 


- 


03A 




1: HCOLOR^ 7 


54F0 


250 


IF PEEK (8) < > 255 THEN 




174 


HPLOT X * 7,Y * 8 TO (X + 7) 






RETURN 


D5C9 




* 7,Y * 8 


2764 


252 


■ 
■ 


993A 


176 


HPLOT TO (X + 7) * 7,<Y + 1 




254 


CALL R4 


E612 




1) * 8 - 1 TO X * 7, CY + 11) 




256 


■ 


903A 




* 8 - 1 


1C0F 


259 


LET NM = NM + 1 


82A9 


178 


HPLOT TO X * 7,Y * 8 


4634 


266 


LET MOT = MOT ♦ 1 


F653 


ISO 


FOR I = 1 TO 5 


I4C1 


262 


IF MOT = 31 THEN MOT = 1 


5386 


182 


'JTAB CV - 1 + I * 2: HTAB CH 




264 




993A 




+ 1: PRINT " H 


30B4 


266 


LET J = 2: GOSUB 154 


3B7A 


184 


NEXT I 


9DCB 


268 


POKE 6,4: POKE 7,23: POKE S> 




186 


CALL Rl 


EC0F 




31 i POKE 9,23: CALL R2 


34CC 


188 


RETURN 


63B1 


270 


YTAB 23: HTAB 4: PRINT "Appl 




190 


REM ctJctJTlRAGE DU PREMIER 






e joue . . . 1 : CALL Rl 


14FB 




MOTctJ 




272 


LET 1 = INT < (MOT - 1 ) / 5> 


3822 


192 


LET MOT = 1 :NM = 1; GOSUB 15 




274 


LET I = MOT - I * 5 


22C4 




4 


23F5 


276 


LET MV = CV - 1 + I * 2 


2D8D 


194 


CALL R6 


E214 


273 


LET MH = CH 


459A 


196 


LET X = PEEK (20364) * 256 




280 


POKE 18, MH: POKE 7, MY 


16D4 




+ PEEK (28363) - 24576 


F835 


282 


LET AD = 2175? + (NM - 1 ) * 




198 


LET X = X / 5 


892A 




5 


CAB4 


20 


LET R = INT ( RND (1) * X) 


A16F 


284 


POKE 21615, INT (AD / 256) 


54F5 


28 2 


LET R = R * 5 


3510 


286 


POKE 21614 ,AD - INT (AO / 2 




264 


HC0LOR= 8: HPLOT 21,86 TO 56 






56) * 256 


1FA9 




,66 


8452 


288 


CALL R5 


E413 


206 


FOR 1 - 1 TO 5 


14C1 
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TREMPLIN MICRO 45 



AN* 



COQ.BAS (suite) 



2?fl 

292 

294 
2<?6 
298 
388 
302 
384 

386 

3i e 

312 
314 
316 

318 

328 
322 
324 
326 

328 
338 

332 
334 
336 
338 
346 
342 
?44 

346 
348 
356 
352 
354 
356 
35B 

360 
362 
364 

366 
368 

3 70 



IF PEEK (8) 

RETURN 



> 255 THEN 



LET NM = MM + 1 

LET MOT = MOT + 1 

IF MOT = 31 THEN MOT 



= 1 



- 1 



POKE 6,4: POhE 7,23: POKE 8, 
31 r POKE 9,23: CALL R2 
GOTO 226 

REM ctJcUJOUER SEULcUI 
LET J = 8 

•JTAB 3: HTAB 3r PRINT "Recor 
d : " jREC 

UTAB 6: HTAB 3: PRINT "Mot n 
■ : ;NM : CALL Rl 
GOSUB 154:1 = INT ( <M0T 

) * 5) 

LET I = MOT - I * 5 

LET MV = CV - 1 + 1 * 2 

LET MH = CH 

POKE 18,MH; POKE 7,MV 

LET AD = 2175? + -NM - 1 > * 

5 

POKE 20320, INT (AD / 256) 
POKE 20819 ,AD - INT CAD / 2 
56) * 256 
CALL R3 

IF PEEK <8> = 255 THEN 344 

LET NM = NM - 1 

IF NM > REC THEN REC - NM 

RETURN 

CALL RA 

LET NM = NM + 1 

LET MOT = MOT + 1 

IF MOT = 31 THEN MOT = J 

■ 

POKE 6,3: POKE 7,6s POKE 8,] 
5 : POKE 9,6: CALL ft 2 
GOTO 314 

REM cWctJPERDU let J 

POKE 6,4! POKE 7,23: POKE 8, 

31: POKE 9,23; CALL R2 

VTAB 23: HTAB 4 

IF J = 1 THEN PRINT "Mous a 

uez perdu , , , w 

IF J = 2 THEN PRINT "Vous a 



ft83A 

D5C? 
mi>3m 
62A9 
F653 
5386 
II3A 

34CC 
2B45 

6EF4 

4C5E 
1465 

59FC 
22C4 
2DBD 
459A 
16D4 

CAB4 
A8F2 

46AF 

E31 1 

603A 

24E3 

8QAA 

3AFA 

63B1 

003A 

E612 

9 3A 

02A9 

F653 

5334 

90 3A 

416F 
2F43 



34CC 
AB88 



Du coq 3 1 ' ane 



- ~ : ■: r d 



riot ft* 



14 







rtOULE 




JI ILLE 






PELEE 




POULE 




MILLE 




f'ELLE 




BOULE 




H jLLE 




BELLE 




■ 




FCLLE 




BILlE 








FOULE 




FILLE 




f 


1 




THEN 



PRINT "Ces 



M8Z gagr>4 
IF JEU = 1 
t termini 
CALL Rl 

FOR I = 1 TO 1300: NEXT I 
POKE 6,4: POKE 7,4: POKE 8,2 
6: POKE 9,12: CALL R2 
HCOLOR= 7 

HPLOT 21 ,24 TO 181 ,24 TO 181 
,95 TO 21 ,95 TO 21 ,24 
384 VTA8 6: HTAB 5: PRINT 

z -VOU s IJ 
386 VTAB 8: HTAB 5: PRINT 

mencer une autre' 
38B VTAB 10: HTAB 5: PRINT 
O/N" 



372 

374 
376 
378 

388 

382 



"Voule 



retrom 



'part 



39ft 
392 

394 
396 

398 

408 



it ? 
CALL Rl 
GET R*e 
* < > 
IF R$ = 



IF R* < > "O" AND R 
N" THEN 392 
*N' THEN RETURN 
POKE 6,6: POKE 7,5: POKE 8,2 
8 : POKE 9,13; CALL R2 
HPLOT 35,32 TO 195,32 TO 195 
,193 TO 35, 103 TO 35,32 
UTAB 9: HTAB 7: PRINT "Recom 
rnencer" 

402 VTAB 11: HTAB 7: PRINT " 1 e m 

£me jeu 0/N" 
40 4 CALL Rl 

486 GET N$: IF N$ < > w 0" AND N 

* < > "N" THEN 406 
408 IF N* = B 0" THEN 414 
41 6 IF JEU = 1 THEN JEU = 2e GOT 

414 

4?2 IF JEU = 2 THEN JEU = 1 

414 POKE 6,2: POKE 7,3: POKE 8,3 



33C8 

6ABE 
EC0F 
AE52 

2D<?D 
49C9 

ACDE 

8374 

2BF0 

1DF8 
EC9F 

E39B 
5AFA 

92A3 

8240 

C54A 

F5A6 
EC8F 

4E8B 
C2DF 

37BA 
783C 



46 



GUY HACHETTE 



2: POKE 9,24: CALL R2 
416 POKE 6 f 32i POKE 7,3: POKE 8, 

40 : POKE v',17: CALL R2 
418 POKE 6,4: POKE 7,23: POKE 8, 

31 : POKE 9,23: CALL R2 
420 HPLOT ,191 TO 279,191 TO 27 

<?,10 66A4 
422 RETURN 

424 REM ctJcUSAUVER LE DICTIONN 

AIRE ?ctJ 
426 POKE 6,6: POKE 7,5: POKE 8 f 2 

8: POKE 9,13: CALL R2 
428 HPLOT 35,32 TO 195,32 TO 195 

,103 TO 35,183 TO 35,32 
436 VXfhB 7 ; HTAB 7: PRINT »D#Vir 



ez-uous saucer" BED4 
432 VTAB 9; HTAB 7: PRINT " 1 e Di 

ctionnaire ^et" EDI D 

434 UTAB 11: HTAB 7: PRINT "te R 

ecord ? 0/N" 
436 CALL Rl 

438 GET R$: IF R* < ) "0 M AND R 

* < > " N 41 THEN 433 
446 IF R* = "N" THEN 446 
442 POKE 37911 ,REC 44C4 
444 PRINT : PRINT CHR* <4>*BSAV 

E DICTI0rW.IRE f A*6688 ,L*3418 

446 RETURN 

Fin du programme Basic 



Vous verifierez 
facilement 
vos copies de 
programmes 
si vous utilisez 
la disquette 
SIGNATURE 
mise au point 
parYvan KOENIG, 
pour les lecteurs 
de Tremplin 
Micro. 

(Bulletin de 
commonde 
a lo fin de la revue). 
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F6 


03 


4C 


27 


54 


68 


A2 


00 


29 


AF05 


54D0 : 


EC 


F6 


20 


05 


51 


68 


80 


09 


00 


00 


99 


80 


08 


00 


00 


00 


I2BB 


54E0: 


00 


99 


80 


00 


9 


00 


00 


90 


80 


00 


00 


00 


00 


60 


00 


00 


0039 


54F8 : 


00 


00 


80 


99 


00 


00 


90 


80 


80 


90 


00 


00 


00 


00 





60 


0900 


5590 : 


42 


41 


4C 


4C 


4 5 


56 


4F 


47 


55 


45 


42 


41 


47 


55 


45 


Ff 


2049 


5510: 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FFF0 


5520: 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FFF8 


5530: 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FFF6 


5540: 


0C 


FF 


FF 


FF 


FF 


A8 


A8 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


243F 


5550 \ 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FFF9 


55*8: 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FFF0 


5570: 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FFF8 



(suite et fin) 

BSAVE COQAM, 
A$4FOO ( L$680 




FONTE.LM 

Reprendre les codes 
parus dans le numero 5 
de TM. (pages 34 et 35). 

Modifier oinsi les acces- 
ses : 4P04 : A9 00 35 25 
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DOS 



ProDOS 



INITIATION 



Les variables numeriques 

dans la memoire de I'Apple 




Dons votre programme en 
Basic, les representations 
des variables numeriques 
sent fort claires : elles cor- 
respondent d celles aux- 
quelles nous ant habitues 
les mathematiques ele- 
inentaires ; 

P = GJ5ou 

PI = 3.1416 

Dans la memoire de notre 
Apple, e'est une autre h*s- 
taire I A chaque variable 
numerique correspond 
(dans les exemples pre- 
sents) une serie de 7 
octets, Les numeros I et 2 
sont reserves au nom de la 
variable (e'est-a-dire a ses 
deux premieres lettres. 
codees en ASCII). Le troi- 
sieme concerns I'Exposant 
et les quatre suivants lo 

Mantisse. If peut etre interessant , notomment dans une routine en langage machine, de representer un nom- 
bre connu sous cette forme, On en verra un exemple plus loin. Notre courte demo vous montre exactement 
ce que deviennent les variables P et PI de la ligne 20 apres un RUN. 



VARMEM 



16 PRINT CHR* < 4> "FP£3 U : PRINT : HOME 
15 PRINT "c±OLES VARIABLES NUMERIQUES DAN 

S LA MEMO 1 RE DE MOT RE APPLE IIctNctN 11 
2@ P = @ .75: PI = 3.1416 
25 PRINT ; IMMERSE : LIST 29: NORMAL 
30 PRINT "§CALL-i51 . . .return" : PRINT 
35 PRINT "*6?.6C return": PRINT 

40 PRINT "*6?:F0 09 FE 0? . . . reponse de l y 

Apple t debut et tin des v ar i abl es) * 
45 PRINT M *?F0.?FO ' return": PRINT 
56 PRINT "Peponse Ctre= cl airs < de votre 

c tOGSc tN <celle du lie sere sur 2 1 i an 

es> : " : PRINT 
55 PRINT : PRINT ,l 0/0?F0:50 90 82 40 03 

S 90 50 4? 32 4? 0F F* 73-P . . i . . . PI . I . 

PRINT " clOPclll Ex Ml M2 M3 

M4 ctOPctN ctdlctN E" Ml M2 M3 M4" 



E227 

6DE2 
3SBA 
F4C1 
3D99 
74D2 

E514 

62 1C 



2634 



1552 



1 6V 4 



§PUN 



VOICI CE QUE V0U5 OBTIENDREZ SUR VOTRE EC RAN : 




LES VARIABLES NUMERIQUES DANS LA MEMO I RE DE MOTRE APPLE II 

20 P = 0.75: PI = 3.1416 

§ CALL— 151 . . .return 

*69 . AC return 

*6<?:F0 ©9 FE 09. . .r^ponse de I'Apple <debut et *in des variables) 
*9F0 . 9FD return 

Reponse (tris claire) de votre GS (celle du lie sera sur 2 1 ignes) t 

0/09F0:50 00 82 40 00 00 00 50 4* 82 49 0F F9 73— P . . k . . .PI .1 . y s 
P Ex Ml M2 M3 M4 P I Ex Ml M2 M3 M4 
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mmmmm\ 



EXPOSANT 



Les variables numeriques 
dans la memoire de I'Apple 



Comment multiplier 
ou dfviser une 
variable numertque 
par 2... sans passer 
par la multiplication 
et la division 
traditionnelles ? 



Juste pour samuser un 
peu, et avec les limites 
que comporte ce jeu ! 

La ligne 40 nous fournit 
ladresse du A que vient 
d'afficher la ligne 3Q. On 
ajoute 2 d cette adresse 
pour obtenir celle de I'Ex- 
posant de A. 

La ligne 60 se contente 
d'incrementer la vaieur de 
I'Exposant ce qui a pour 
effet immediat de multi- 
plier A par 2. 

La seconde partie de la 
demo fait exactement le 
contraire. On decremente 
la vaieur de I'Exposant ce 
qui a pour effet de diviser 
A par 2. 

Amusont, non ? 



10 TEXT : PRINT HHP* '21': HOME 
20 A = 1009 

3@ PRINT " A = " ; : IN 1 'ERSE : PRINT A: NORM 
AL : PRINT 

40 AD - ■ PEEK 105j + PEEK :iOi> * 256 > 
+ 2 

50 FOR 1 = I TO 20; POKE AO , < PEEK CAD) ) 

+ 1 : PRINT A: NEXT 
-50 POKE 32,13: POKE 33,27: HOME : LIST 2»3 

, 5@: PRINT : PRINT 
70 INVERSE : PRINT "MULTIPLICATION OBTENU 

E" J i NORMAL : PRINT M en 'lugmentant 1 

' EXPOSANT de 1 * chaque tour de la bou 

c 1 e . " 
S0 60SUB 20i? 

90 GOSUB 210: POKE 34,1: HOME : PRINT : P 
R1NT 
100 A = 1 000 

110 FOP I = 1 TO 1 is POKE AD , p E E K AD > 

- 1 : PRINT A: NEXT 
125 POKE 32,13: POKE 33,27: HOME : LIST 10 

@,110: PRINT : PRINT 
1.36 PRINT : IMMERSE : PRINT HH ET MA I NT EN AN 

T DIVISION" ; : NORMAL : PRINT " en dim! 

nuarnt "1 EXPOSANT de 1 a chaque tour d 

e 1 a bou c 1 e . " 
140 GOSUB 2@0: GOSUB 21 y 

159 VTAB 22: PRINT " " " <M>ENU DE DISQU 
ETTE ctG J1 ; : GET Rfc : PRINT R* i POKE 34, 
0: IF R* = "M u THEN PRINT CHR* (. 4) " R 
UN MENU , D 1 " 

160 END 

20 CALL - 198: '.'TAB 1?: PRINT " 

INVERSE : PRINT Ir UNE TOUCHE SVP " ; : GET 
R*; PRINT R* : NORMAL : RETURN 

210 POKE 32,0 : POKE 33,40: RETURN 



27E9 
2BD2 

4CCF 

6D62 
A*85 
043E 



22*5 
H'v4 2 

7B3 
2BD2 

548B 

D39A 



1CBF 



AF1 5 

1 80 



593E 
104E 



DEMO.LM 



ac- 



Cette demonstration 
complit la meme tache 
que la seconde partie de 
la precedente : elle divise 
A par deux. 



19 



30 
4 



DATA 32 , 33 , 252 , 1 69 , 27 , 1 60 , 3 , 32 , 249 , 234 
,32,46,237,32,93,252,286,27,3, 173,27,3 
p 201 f 122, 1 76 , 233 ,96,140,122,0,0,0 
FOR I = 768 TO 799: READ R: POKE I,R: 
NEXT 

768 

23: PRINT " <M>ENU DE DISQUETTE c_t 
GET R*: VTAB 22: PRINT : I F R* - 



CALL 
'■■TAB 
G"; : 



"t1" THEN PRINT CHR* '• 4 > " -/TMC/MENU " 



^ i s l 

C332 
8331 



D203 
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maaaaaaaamamaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaammaaaaaaaaaaaaaaaaaaaaaaaaa 



Apres un RUN OEMOLM, tapez un CALL - 1ST suivi d un indispensable RETURN, puis 



300 


20 


58 


FC 


JSR SFC58 


303 


A9 


IB 




LDA £$16 


305 


A Q 


03 




LDY £$03 


307 


20 


F9 


EA 


JSR $EAF9 


1ft A 


20 


It 


t D 


J5K $ED2E 


30 D 


20 


62 


FC 


JSR $FC62 


3ig 


CE 


11 


03 


DEC $031 B 


313 


AD 


IB 


03 


LDA $031 B 


316 


C9 


7A 




CMP £$7A 


318 


BO 


E9 




BCS $0303 


31 A 


60 






RTS 


31B 


79 


7A 


00 


lei, fe nom de 


31E 


00 






Mantisse : 7A C 


31F 


00 






effectue apres 



] 



Le HOME tradrtionnel efface votre ecran. 

Adresse de la variable dans I'Accumulateur (partie basse) et 

dans le registre Y fpartie haute). 

MOVFM place la variable dans FAC. 

PRNTFAC affiche la valeur courante de FAC, 

CR envoie un gentil retour chariot. 

La voleur de I'Exposant est decrementee 

II est place dans A et s'il est plus grand ou egal a $7A, 
on continue. 

Retour au Basic. 



PETITE EXPERIENCE : 

Tapez 30A : 60, puis 30QG . et 9D.A2 [sans oublier un RETURN a la suite de chaque operation). Votre Apple 
vous affichera les deux lignes suivantes {il s'agit de la partie de FAC qui nou$ interesse) : 



O09D : 
0QAO ; 



1 ou r comme vous pouvez le converter, I Exposant &e trouve bien en $9D... tandis que la Man- 
J tisst 



00 00 7A _l tisse est quelque peu molmenee. 

En fait, $A2 contient effectivement Ml tandis que $9E contient Ml + 
valeur positive. Quand Ml >= $80, $9E = Ml . 

SUITE DE L'EXPERtENCE : 



, mais ce n'est vrai que si Ml est une 



Tapez 30 A : 20, puis 310 : 60, 3Q0G... et 9D.A2. Vous consfatez que FAC ne correspond plus a rien. Ses 
voleurs ont ete defrruites, Moralite : ne pas essayer de decrementer ( Exposant dans FAC, pour gagner du 
temps par exemple f 

FAC VERS PACE ZERO : 

Comment copier FAC en page zero, a une autre odresse ? Simplement en passant par la routine MOVML 
($EB23), comme ceci : 

00 00 OF, apres execution, 



300 
302 
305 



LDX £$F9 Si FAC contient 9D : 8C 8F 

20 23 EB JSR $EB23 on aura : 

RTS F9 : 8C OF 00 00 00 



FAC VERS UNE AUTRE AORESSE ; 

Meme facilite, mais I'adresse de destination doit etre placee dans X (partie basse) et Y (partie haute) : 

LDX £$08 De plus, on n'utilise plus MOVML, mais MOVMF ($EB2B:. 

LDY £$03 Apres un 300G on aura (avec les valeurs actuelles de 

2B EB JSR SEB26 FAC) ; 



300 
302 
304 
307 



A2 
AO 
20 
60 



308 : 8C OF 00 00 00 



BASIC VERS FAC... ET RECUPERATION 



300 : 


20 


BE 


DE 


JSR 


$DEBE 


303 : 


20 


7B 


DD 


JSR 


SDD7B 


306 : 


A2 


0E 




LDX 


£S0E 


308 : 


AO 


03 




LDY 


£$03 


30A i 


20 


2B 


EB 


JSR 


SEB2B 


30D : 


60 






RTS 




30E : 


00 


00 


00 


00 00 





Dernier essai : tapez la courte routine LM ci- 
contre, puis repassez en BASIC. Pianotez 
alors un A - 4O0O, puis CALL 768, A. Apres le 
CALL -151 , vous constate rez que 30E.312 con- 
ttennent 8C 7A 00 00 00 C.Q.F.D. ! 

IMPORTANT : Lars de ces transferts FAC ne change pos. 
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DOS 



ProDOS 



INITIATION 



Caracteres souris 

de votre Apple lie ou lie* 



Simple demonstration 
montrant comment affi- 
cher !es caracteres sou- 
ris de lApple d partir 
d une routine en Ian- 
gage machine. 

En DOS 3,3, remplacer 

325 : 4C 1 7 9A par 

6Q EA EA ou 4C EA 03, 

■ Ceiie rouiine ne fontiionne 
qu avec l« Apple He tronsforme* 
mail oussi sur le GS en emulation 



i@ DATA 32,0 , 195, 16? ,145,32, 248,253, 162, 6 
4 , 1 60 , 1 2 , 1 38 , 32 , 40 , 3 f 32 , 240 , 253 , 232 , 1 3 
8, 1 32,36,32,40 ,3,32,240 , 253,32 , v3,2^2 , 
232,224,96, 144,231 , 76 , 23 , 1 54 , 9 , 1 28 , 32 , 
240 ,253, 169, 189,32,240 ,253, 169, 160 ,32, 
240 ,253, 138,96 

20 FOP I = 768 TO 324: READ R : POKE r,P: 
NEXT 

30 CALL 768 

40 '-..'TAB 23: PRINT "<M>ENU DE D I SQUETTEc_t G 
' ;: GET R* : PRINT ; IF R$ = " M " THEN 
PRINT CHR* <4) "RUN MENU" 



4DD2 

1E2? 
3331 



F369 













LM Mill 


0300- 


20 


00 


C3 


JSR 


*C300 


0303- 


A9 


91 




LDA 


£*91 


0305- 


20 


F0 


FD 


JSR 


*FDF0 


6308- 


A2 


40 




L DX 


£S40 


030A- 


A0 


0C 




LDY 


£*SC 


030C- 


8A 






TXA 




0300- 


20 


"J o 


9 3 


JSR 


$0 323 


0310" 


20 


F0 


FD 


JSR 


*FDF0 


0313- 


E3 






I NX 




8314- 


8A 






TXA 




0315- 


34 


24 




STY 


*24 


0317- 


20 


28 


83 


JSR 


$0328 


31A- 


28 


F0 


FD 


JSR 


SFDFy 


031D- 


20 


62 


FC 


JSR 


*FC62 


0320- 


ES 






I NX 




0321- 


E0 


60 




C F'V 


£*60 


0323- 


91 


E7 




ECC 


$0 30C 


0325- 


4C 


17 


9A 


JMP 


*9A17 




















CARACTE 


0328- 


09 


80 




ORA 


£$30 


32A- 


20 


F0 


FD 


JSR 


*FDF0 


0320- 


A? 


BD 




LDA 


£SBD 


832F- 


20 


F0 


FD 


JSR 


*FDF0 


0332- 


A9 


A0 




LDh 


£*A0 


334- 


20 


F0 


FD 


JSR 


*FDF0 


0337- 


3A 






TXA 




0338- 


60 






RTS 





LALIGNi 10 (DATA) 



] 

] 
] 



PR£3... si vous preferez, 

PRINT CHR$ (14)... Q 

(40 colonnes, caracteres elorgis). 

Caractere de depart. 

Pour HTAB (deuxieme colonne). 



X dans A vers la routine caracteres normaux. 
Affichage caracteres souris, 
X = X + 1 pour suivant, et dans A, 
CH = Y (HTAB, 2* colonne). 
Meme operation que plus hout. 

CR : retour chariot. 



X = X + 1 pour le suivant... 

mois seulement si X est plus petit que 560. 

Retour au Basic. 



On force le bit 7 a 1 et on affiche le caractere 
ASCII. 



] 

Puis le signe egol... 

...et un espace, 

X dans A, puis retour. 
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UTILITAIRE 



Yvan KOENIG 



Protection selective dans /RAM 



Plusieurs lecteurs de Trempfm Micro m'ont demonde comment proteger une partie de !a memoire auxi- 
liaire, lots de 1'utilisation de RAM (disque virtuel en AUX, sous ProDOS, pour ceux qui I'ignorent 
encore), APPLE dans la note technique PRODOS n°8 repondait qu'il suffisait de sauver un fichier bldon 
de flK pour proteger la zone $2000-$3F£F et un second pour proteger la zone $4000-$5FFF (un unique 
fichier de 16K protegerait $2000-$5FFF). Ri en nest prevu pour des cas plus deli cats et il faut se souvenir 
que cette formule occupe inutilement des pages memoires puisque, chaque fichier BIN cree utilise 16 
blocs pour les "donnees", plus 1 bloc "TSL". En desassemblant PRODOS, j'ai trouve la routine de gestion 
du RAM disk et je dots reconnoitre que je n'ai pas tout compris, Heureusement, Sandy MOSSBERG est 
venu a la rescousse dans NIBBLE d'Octobre 1986 (ou il presence et commente soigneusement les routines 

liees au RAM disk). 



Page 


.0 


.2 


,4 


,6 


.8 


.A 


.c 


.E 




+ 


* 




# 


± 




i 




1. 


09 


1 A 


2B 


3C 


4D 


5D 


5F 


5F 


2. 


rja 


OA 


QB 


OC 


OU 


ot 


OF 


10 


3. 


II 


12 


13 


14 


15 


16 


17 


18 


4. 


19 


1 B 


1C 


1 D 


1 E 


IF 


2ff 


21 


5. 


22 


23 


24 


25 


26 


27 


28 


29 


f*. 


2A 


2C 


2D 


2£ 


2F 


30 


31 


32 


7. 


33 


34 


35 


36 


37 


38 


39 


3A 


8. 


3B 


v3D 


3E 


3F 


4a 


41 


42 


43 


9. 


44 


45 


46 


47 


48 


49 


4A 


4B 


A. 


4C 


4E 


4F 


50r 


51 


52 


53 


54 


B . 


55 


56 


57 


53 


59 


5A 


56 


5C 


C 


* 








* 


+ 


* 




D. 


60 


61 


62 


63 


64 


65 


66 


67 


D. 


68 


69 


6A 


68 


6C 


6D 


6E 


6F 


E, 


70 


71 


72 


73 


74 


75 


76 


77 


F. 


7S 


79 


7A 


76 


7C 


7D 


7E 


* 



Pour ce qui nous interesse ici, je ne retiendrai 
que la table de correspondence Numeros de 
blocs-Pages memoire que je reproduis ci- 
contre en inversant le mode d'entree (on con- 
nail la page, on cherche le numero de bloc 
correspondent). 

En fait, un bloc est constitue de deux pages. 
La page de rang "pair" dont le numero sett 
d'entree a la table ci-contre, et la page de 
rang ' impair" qui la suit. 

EXEMPIE : Bloc $51 = pages $A8 + $A9 



bank 1 
bank 2 



La table doccupation du RAM disk est situee en memoire AUX de $3C2 a $3D1 . II suffit de manipuler 
cette table pour proteger ce que I on souhaite. Je rappelle que dans cette tabie, chaque octet stocke la 
situation de 8 blocs, le bit correspondent a un bloc etant d si le bloc est "utilise", a 1 dans le cas 
contraire. 

Par exemple, pour proteger $20G0-$3FFF !a lisle des blocs 'utilises" est la suivante : 

PAGE 20 22 24 26 28 2A 2C 2E 30 32 34 36 38 3A 3C 3E 
BLOC 08 OA 0B ffC 0D 0E OF 10 11 12 13 14 15 16 17 IB 



Ce qui en terme de table d'occjpation se traduit por ; $3C3 - *&Q]QQQQQQ $3C4 = % 



$3C5 = %01111111 

fsuffe page- 54 J 
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Si on souhaite proteger 
fake : 

$3C3 = % 010(300(30 
$3C4 - %QQQQQQW 

$3C5 - % 00 100000 



-$5FFF if fout 

$3C6 = % 000(30300 
$3C7 = %00111111 



Si on souhaite proteger $6000 $7FFF (pseudo 
page 3 seule) il faut faire : 

S3C8 = % 00000000 



$3C7 " %1101< 
S3C9 = %00011111 



Recapitulation 






1 + 2 


1+2 + 3 


3C3 




01 GOQQQQ 


01000 000 


3C4 


oooaaaoo 


QQQQQQQQ 


00000000 


3C5 


a n 1 1 1 i i 


ooi qqqqq 


00100 000 


3C6 






00000000 


3C7 




00 1 l 1 l l 1 


001 00 


i C8 






00000000 


3C9 






0001 1111 


ce qui volts laisserait 
103 blocs 87 blocs 71 blocs 



Si vous avez vraiment besom de beaucoup de place it est passible de proteger tout ce qui se trouve en 
dessous de $C000 en marquant les blocs 00-5F occupes, ce qui se fait en mettant 00 de $3C3 d $3CD, M 
vous restera 31 blocs en RAM disk, 

Le programme assembleur PROTECT. RAM vous permet de reoliser les quatre configurations envisagees. 

II vous montre en prime une des solutions utifisables pour recuperer des informations dans la memotre 
auxitiaire. II fallait disposer de cette possibility pour examiner l etat de la table ^occupation du volume, 
ce que fait la routine EXAMINE qui de plus r affiche les 16 octets lus. La routine FREEALL permet de vider 
completement le RAM disk, toutes les zones 'protegees 1 sont liberees et to us les fichiers eventuels sont 
"effaces". Le programme basic PROTECT, DEMO vous montre de maniere succincte comment utiliser 
PROTECT, RAM. 



HOta : Un PATCH pour ProDOS a ete public dons le numero de novembre de NIBBLE, mais il n est pas compatible 
ovec le PROTECT. RAM d'Yvan KCENIG. En effet, ce Patch deploce la table cToccupotion du RAM disk. 



PROTECT. RAM 



BSAVE PROTECT. RAM, 
AS300 L206 



6309 : 


4C 


61 


93 


4C 


58 


9 3 


4C 


3F 


93 


4C 


36 


83 


4C 


77 


63 


3D 


3EAF 


310: 


65 


Cy 


A9 


00 


3D 


25 


6E 


A2 


2B 


9D 


00 


6E 


E8 


D0 


FA 


A9 


A901 


B32B: 


FF 


A2 


9E 


90 


C3 


93 


CA 


16 


FA 


A9 


FE 


8D 


EM 


9 3 


D0 


43 


3901 


0339: 


80 


5 


ce 


A9 


00 


A2 


0A 


9D 


C3 


03 


CA 


16 


FA 


30 


34 


80 


6BCF 


8346: 


95 


C8 


A9 


IF 


8D 


C9 


83 


A9 


99 


8D 


C8 


83 


A9 


19 


D0 


05 


FA75 


6356 : 


80 


05 


ce 


A9 


3F 


BD 


C7 


03 


A9 


00 


8D 


C6 


03 


A9 


26 


00 


212* 


0360: 


05 


3D 


05 


C9 


A9 


7F 


80 


C5 


93 


A9 


90 


SD 


C4 


83 


A9 


40 


CD8A 


83701 


3D 


C3 


93 


80 


64 


ce 


60 


A2 


89 


B5 


00 


48 


BD 


B4 


03 


95 


7BB5 


0330: 


Qi3 


CA 


10 


F5 


A9 


C2 


85 


84 


A9 


03 


85 


05 


A2 


18 


A0 


00 


5A4B 


6390: 


29 


08 


99 


99 


BE 


83 


20 


DA 


FD 


A? 


A0 


20 


ED 


FD 


C8 


E6 


F672 


63A0: 


94 


D0 


2 


E6 


05 


CA 


D0 


E8 


20 


8E 


FD 


68 


95 


00 


E8 


E6 


D8B3 


03B9: 


8A 


90 


FB 


66 


3D 


03 


C0 


AD 


88 


10 


8D 


82 


C0 


60 


90 


00 


39AE 


83C0r 


99 


60 


90 


00 


80 


96 


60 


86 


00 


00 


08 


66 


00 


08 









PROTECT, RAM. DEMO 



10 OS = CHR$ (4): PRINT D$"PR£ 

3" : PRINT BD39 

13 PRINT D*"8L0AD PROTECT .RAM" 

14 GOTO 20 4600 
S5 PRINT D*"PR£r 3C5C 



28 ROUT = 768 F5BF 

39 GOSUB 588 1B45 

46 CALL ROUT: REM H ProUge HGR1 9506 

58 GOSUB 500 

60 CALL ROUT + 3: REM "Pratfrge 



54 



[■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■HI 
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HGR1 +HGR2 


1 7D1 


1 7R 




1 R4S 

1 Civ! 


70 


BOSUB 500 

WW-^WW •■'WW 


1 R4S 


i DU 


PP T NT fY*"f>Fl FTF /PAM/RT DUN"?" 




8G 


CALL ROUT + 6: REM "Pro teas 




1 90 

I/O 


PRINT D$"BSA'JF 'RAM/BI D0N1 .A 






HGP1 +HGP2+HGP3 


1 DD4 




^^000 L$4900" 






GOSUB 500 


t RJS 




'JU DUD J D 61 


1 Rd^ 

I D M J 


[ 9 9 


CALL POUT 4 9s PEM w Prot£ap 




21 


PAN ROUT + IS* RFM 11 Li here 

LnLL P. l_r r ' i _■ ■ !A ELI 1 L 1 L 1 C 1 C 






dtp up t ru i + 






I V P.MI 1 u 1 si", 


•vFfld 

Jr O *t 


1 19 


GOSUB 590 


1B45 


220 


GOSUB 509 


1B45 


J u 


HAIL ROUT + ? H ■ RFM "1 ihPr* 




£ Jo 


POT mt Ti* 11 P&i " 


JriJD 




PAMdisk 


5F84 


249 


END 


9180 


139 


GOSUB 500 


1645 


500 


PRINT D$"CAT /RAM ,r 


*6oD 


140 


PRINT D$ n BSAVE/RAM/ 8 1 DON 1 , A* 




519 


CALL POUT + 12: REM "R*cup*r 






2000,L*20B0" 


0A63 




e table occupation mo) u me 


5501 


:5m 


GOSUB 598 


1B45 


539 


GET X*: PRINT 


F92E 


160 


PR I NT D* " BSAU E/RAIVB 1 DQN2 ,AS 
2000 ,L* 2000" 


8D64 


549 


RETURN 


63B1 
■ 



LE PROGRAMME SOURCE FIGURE SUR LA DISQUETTE TREMPLIN MICRO N°12. 



ET VOICI 



LE BUREAU DE MINIE ! 



Vous avez aime MINIE. Vous allez adorer "LE BUREAU DE MINIE". 

Le BUREAU de Minie, DOS 3,3 ou PRODOS, c'est une collection de ressources pour APPLE He + 
ROMS "SOURIS" ou APPLE lie. 

Jamais encore n'avaient ete conciliees a ce point puissance et simplicity. 

EXEMP1ES : * ['instruction &UTIL.DISK, depuis BASIC, fait apparaitre une fenetre avec les 
litres de voire disquette, deroulement dans les deux sens, selection de titre 
par souris^tc. 

* L'instruction SHARD fait une recopie d'ecran sur imprimonte en 80 colonnes, 
□vec caracteres inverses et souris, et ceci avec une J< vieille" imprimante DAAP 
aussi bien qu'avec ies ImageWriter / et //. 

* Vous disposerez depuis BASIC, dune calculette fonctionnant soit avec les 
touches de TApple, soit avec la souris ( et le resultat sera transmis au BASIC. 

* Vous aurez meme un jeu : le PUZZLE du MACINTOSH, accessible depuis 
BASIC par ('instruction &UTILGAME, 



Et it y a bien d J autres chases dans ce BUREAU DE MINIE : les grondes lettres 
en mode TEXTE 80 COLONNES, les ICONES, le LOOKER, le programme 
CARAMAKER qui vous permet de creer vos prop res polices de caracteres et 
de les utiliser depuis BASIC ou APPLEWRITER, et de nouveaux programmes 
en BASIC utilisant MINIE. N'attendez plus pour programmer encore plus 
"PRO J ' ; MINIE et le BUREAU DE MINIE sont disponibles {utilises le bulletin de 
commonde, a la fin de la revue), des maintenant 



MINIE 






180 F 


LE BUREAU 


DE MINIE . . . 


150 F 


PROGRAMMES 




SOURCES 


SO F 
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HI 



BRIC-A-BRAC 



• SAISIE FICHIER 

BIN AIRE (TMn°ll,page24) 
Lignes 240 et 250 : Permuter "\ " et "2", 

• ENLEVE.D05 (tm n 3 n. P age45) 

Deux lignes error ees : 

2760 LDX S2B Recupere le nu- 
mero du slot acrif 
lors du boot. 

2762 LDA JCB88.X Arrets le lecteur 
avec lequel on 
vient de booter. 

(Yvan KOENiG} 

• CALENDRIER PERPETUEl 

Suite au rectifkatif du programme Ca- 
lendrter Perpetuei (TM n°5) porn dons 
TM n a 8, page 55, j'affirme que celui-ci est 
errone. En effet. si la logique est bonne, 
(it Suffit d'eliminer les annees cenlenai- 
res non bissextrles. c'est-6-dire nan rjivi- 
sibles par 400), nous trouvons les annees 
1600, 1700, 1600. 1900, 2000 avec un mo is 
dc tevrier correct, mais nous nous oper 
cevons que les annees qui devroient etre 
bissextiles {par exemple 19B0. 1964) ne le 
sent pos. 

Exemple ; 1984 : Annee bissextile 

INT (U/4) = U 4 -+ 1 
INT (U. 400) < * U. 400 -> } 
Res u I tot B = done annee non btesexfile ! 
la solution est simple, IE suffit d'adopter 
la modification de I a ligne 85 {.voir pro- 
gramme ci-opres}. 

58 TEXT ; NORMAL ; PRINT CHR$ C 

21); CHRf (32): HOME 
28 PRINT CHR* <4> p PR£l"s PRINT 
CHRI <27)'c'; CMS f?>M32H 

■j CHR* ■( 27> -Q" 
5* U = 15?? 

51 FOR K = L TO 52 

52 FOR L = 1 TO 6 
84 FE = 2S:U = U + 1 

35 B = < INT < U / 4i = (U / 4^ ♦ 
( INT (U / IDS) < ) (U / IB 
en - C 1MT (U / 4B8) ( ) ( 
U / 498>> :FE = FE + 6 



98 POKE 34, L * 17 - 17: PRINT IT 
'FE; 

?5 NEXT L: PRINT ■ ': NEXT N 

• MORSE 

Suite d la lettre de M. Christian G. de 
L1ANCOURT (voir TM n°7, poge 60), i I 
existe en effet des programmes d' emis- 
sion-reception Morse [ON) et Rodiote- 
lelype (RTTY) pour Apple th. Le plus 
connu d'entre eux est le "Super-Ratt" qui, 
sons interface, et a parti r du connects ur 
pour manette de jeux, permet (emission 
et la reception de ce type de signaux 
selon des standards multiples (codes Bau- 
dot, ASCII, vitesses variables}. Ce pro- 
gramme permet egalement lo mise en 
place d'une boite aux lettres elecfronique 
(Mail Box) en RTTY et de nombreuses 
autres applications (stockage de textes, 
impression etc.}.., L'E miss ion -reception 
RTTY el CW impose toulefois l ulilisation 
d'un codeur decodeur compatible TTL ou 
via un optocoupleur. De nombreuses des- 
criptions de ces montages ont ete foites 
dans la Presse radio amateur. Enfin, il 
fout posseder, pour remission ou lo 
reception, une licence pour I 'exploitation 
d'une station radio electrique d'amateur. 

(E, M. 54420 PUt NO Yj 

• CON5EILS AUX UTILISA- 
TEURS D'UN APPLE IIC 

Pour rendre ie programme "CONFIG'' (TM 
n°9, pages 53-54} compatible avec tous 
les Apple He, il faut le modifier de la 
maniere suivante : 

BLOAD CONFIG. ASaOOfl 
CALL -151 
B05C ; 11 C3 
BEGfJG 

BSAVE CONFIG AS8000.LSI 00 

Luc MOREAU 

• D1SQUETTE KONICA 

Les floppy disks Konico sent capable* de 
con server routes vos donnees sur plus de 
30 millions de passages. C est du mains 
ce que goranlii le febricant pour des dis- 
quettes certifiees 100% sans erreur, 



Tremplin Micro teste actuellement les 5 
pouces 14 el les 3 pouces 12. Konico 
France se fera certainement un plaisir 
d'adresser sa documentation aux lecleurs 
de la revue. Voici ses caordonnees ; 
46 d 52 rue Arago 
92900 PUTEAUX, 

• DISQUETTE TDK 

Une autre grand e morgue de disquettes 
est dispanible sur le marche francais : 
TDK. Nous en soumeltons aussi quelques 
exemplaires d des tests d'utilisation Ires 
pousses. 

TDK : Compagnie Electro San, 
41-43, rue de Villeneuve, 
Silk 197, 94563 RUNGIScedex. 

• BIZARRE 

Dans un programme Basic, pour entrer 
une commande DOS, il suffil de faire 
PRINT CHR$ (4) COMMANDE DOS . mais 
quand on est en BQ colon net la prece- 
dente commande ne marche pas. J'oime- 
rai sovoir quelle commande ou quel POKE 
il faut faire pour que I'Apple accepte une 
commande DOS en BtJ col. 

(1. P, 42155 POUHL Y LES-NONA INS} 

[jn Biiarre ! Avez-vous place un PRINT 
J d la suite du PRINT CHR$ (4)"PR£3" 
qui vous a permis de passer en 80 
colonnes ? Apres un GET, n'oubliez 
pos dovantage de placer un PRINT. 

• TASC 

et NUMERO DE VOLUME 

1. Au secours I comment obtenir de 
bans resultats, sous Pro DOS, avec un pro- 
gramme compile ovec TASC et trans fere 
por CONVERT ? 

2. Comment changer le numero de 
volume d 'une disquette DOS 3.3 ? 

{Anonym*}* 

1. Jai dejd eu loccasion de dire 
qu'il est inutile de perdre son temps 
a transferer des programmes 
APPLESOFT compiles ovec TASC ou 
un outre compilaleur. Le 
BASIC. SYSTEM utilise la memoire 
d'une facon differente de celle 
adoptee par le DOS 3 3, ce qui pose 
des problemes. En outre les com- 
mandos Sy steme sont mompuiees 
outrement. ce qui explique I'appari- 
tion, a I'ecran, dbrdres non execu- 
tes. II n'y a pos de remede et je 
pense qu'il n'y en aura pas. La com- 
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pi lot ion perd une grande partie de 
son interel ovec le itOS. 
2. II n'est pas possible de modifier 
le numero de volume d une dis- 
queite DOS 3.3, Celui-ci est en etf e« 
inscril stir toutes les pistes lors du 
formotoge de lo disquette. II vous 
faudra initialiser une outre dis- 
quette en prectsant le n urn Vol 
choisi et y transferer les fkhiers 
ovec un utilitoire de voire choix 
(FID. COPY trucmuche...). 

(Yvan KOCNfC) 



• OKI MKCROLINE 80 

Je possede un APPLE He (65C02) + inter- 
lace parol lele APPLE + impnmonte OKI 
mkroline 80. Pour lo sortie de texte, pos 
de probleme. Par tontre, je ne parviens 
pos a impnmer les caracteres semi- 
gropbiques (codes de 128 a 256} , Peut- 
etre est-ce un probleme de bit 7 a forcer a 
L mcis je ne con no is pos lo marche 6 sul- 
vre ? De plus \'q\ un utilitoire "OKI- 
GRAPH" qui, d'apres Ip notice, permel a 
cette imprimante la recopie des pages 
grcphiques. Helos I lui non plus ne func- 
tion ne pa 5 . (J. -P. C 422W UNiA S} 



Pourquoi avoir acbete une carte 
APPLE pour utiliser une OKI micro- 
line BO ? II existe sur le marche des 
interfaces qui per met tent d exploi- 
ter a fond cette remorqucble 
machine. La plus connue {et la plus 
imilee . pour ne pas dire copiee) 
est to corte GRAPPLER qui dispose 
d une commonde Ctrl I H pour forcer 
la reconnaissance du bit 8. Je rap- 
pelle que ('APPLESOFT force le bil 8 
de tout ce qu i I envoie a 1 et que les 
interfaces s'empressent generole- 
ment de (e mettre a 0. 
MICROSHOP 
6, rue de Chateaudun 
75009 PARIS (1)48.78.80.63 
diffuse une "imitation" GRAPPLER a 
595 F TTC (verifier que le cable est 
compris), et vous pjuvez sans doute 
trouver mains chef en consultant 
les pub I kites de IOI (desole ; il n'y 
a pas encore de pub dans Tremplin 
Mkro}* (Yvan KOENlG) 



ATTtHTIW t Maui it* rdftotukHH qu ms Itftm 
aaompaoAtas d'urt* wtlcpp* 
HmLv4*. Dtafot, Hit* Haiti tit pat pattibt* a* rteapivr 
d*t fittcati povf Ytriffir It fofl{i)ortiwn*nt 4* la rev- 
tin* mrrtiponAmf*. La dttewttr ai indifpvwblm. 



AVEC LE CERCLE, 

nous tournons vraiment en rond ! 



Voici la routine 
que vous propose 
monsieur PICHON 



20 
43 
50 
70 
89 

90 
i u 5 
120 
130 

1 40 

145 
146 
148 

158 
168 
165 
170 

180 

185 

186 
20 

403 

418 

429 

510 
520 

1000 

1005 
1010 

102Q 

1030 

1040 
1200 



Fonctiorme aussi 
sur I APPLE UGS 



HPLOT XC 
HPLOT XC 
HPLOT XC 



HOME 

ON ERR GOTO 400 
XC = 149 :YC = 90 
TEXT 

INPUT 11 RAYON " ; R : IF R > 90 OP 
R < 2 THEN 70 
R2 = R " 2 
B - INT <R * ,75) 
DIM A(B) 
HGR : HCOLOR= 3 
FOR I = TO B 
A(I ) = <R2 - I " 2) * .5 
NEXT : PRINT : UTAB 22 
INPUT IF "CERCLE UIDE OU RLE I N (M/ 
P) " ;W$; IF m = "P" THEN 1000 
FOR I = 1 TO B 
HPLOT XC + I , YC + A( I ) 
HPLOT XC + AC I ) ,YC + I 
HPLOT XC - I ,YC + A< I > 

- AC I ) ,YC + I 
HPLOT XC + I ,YC - A( I ) 

- I ,YC + A< I ) 
HPLOT XC - I ,YC - A< I> 

- AC I ) , YC - I 

HPLOT XC + A< I ) ,YC - I 

NEXT 

END 

FOR I = 763 TO 777: READ W; POKE 
I ,Wl NEXT 

DATA 1 94 , 1 63 , 1 04 , 1 66 , 223 , 1 54 , 72 , 1 
52,72,96 
TEXT i HOME 
PRINT 11 ERR EUR " 
EEK (219) * 256 
PRINT " A<I) = 
END 

HPLOT XC - R,YC TO XC + R , YC TO X 
C,YC - R TO XC f YC + R 
ON ERR GOTO 40 

FOR I = 1 TO Bs HPLOT TO XC + I, 
YC + Ad) TO XC + I ,YC - AC I > 
HPLOT TO XC - I,YC - A< I ) TO XC 

- I YC + A < I > 

HPLOT TO XC - A(I>,YC - I TO XC 
+ A( I ) ,YC - I 

HPLOT TO XC - A<1),YC + I TO XC 

+ A(I> ,YC + I 

NEXT 



PEEK (218) + 



" sAU) 



2F*7 
7AE4 
570F 
1 339 

94F0 
7DA4 
82EC 
9F5A 
F I 9G 
EFCD 
87BF 
DFB6 

BDC 1 
F9CE 
1 6^ 
61AA 

5C99 

6C90 

B092 
67AE 
9592 

0180 

9A38 

E47F 
1C5A 

931A 
1AAC 

0180 

83CC 
7AE4 

994C 

4E46 

474* 

4544 
0582 
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La micro 
et les livres 



• APPLE it ProDOS, GUIDE 
DU PROGRAMMEUR 

{EDITIONS OU SYBEX) 

Parution fin d&embre 1936 
Auteur t Marcs f COTTINI 

C'est la suite logique d un precedent 
ouvrage. oinsi que le fruit d'une serie 
d'articles et de reflexions de I'outeur. 
Depuis la sortie du systeme d'exploita 
tion ProDOS, ban nombre de versions ont 
fail leur apparition. L'auteur, dans cet 
ouvrage, traite et reoctuolise ProDOS 
pour permettre ou programmer averti, 
com me au novice, d'effectuer une mi se a 
niveau. Les versions 1.0.1 , : 3.2 et 1 1 .1 
sont trartees, la version 2.0 n'ayanl que 
r r cs peu change. 

Vous apprendrez dans un premier temps 
a vous fomiliariser avec ProDOS, car 
'accent est mis sur ('organisation d'une 
disquette ProDOS. Tout vous sera devoile 
au sujet du boot dune disquette. ainsi 
que sur les may ens employes pour 
implanler les fichiers PRODOS et 
BASIC. SYSTEM. Les routines principles 
{ML I, REBOOT. ROM Controleur. Reloca- 
tor, Loader) seront commenlees sous 
forme de modules regroup ant les sous 
programmes ef commcndes diverses. 
Votre curiosite sera piquee par les lis- 
tings detail les et commentes des printi- 
poles routines employees par ProDOS : 
ROM de la carte controleur, Loader du 
sy steme ProDOS, PRODOS Relocator et 
REBOOT WLL Cet ouvroge, outil de travail 
indispensable a tout programmeur et 
hobbyiste digne de ce nom, predestine a 
une bonne maTtrise du sy steme ProDOS 
et fovorise une eventual le transition 
entre I Apple tie et le HCS, dernier- ne 
d' Apple Computer. 

• JEUX-PROBLEMES : de la 
logique a (Intelligence 
ariificielle* 

Si vous vous inter esse* a l J intelligence 
ortificielle, je vous promets de bons., 
d'excellents moments avec le livre de 



Jean FRIANT et d'Yvon L'HOSPITALIER, 
Les auteurs desirent initier leurs lec- 
teurs a une serieuse formation] dans le 
domaine de la deduction logique. Pour 
y parvenir, ils utilisent des jeux et 
enigmes occompagnes de leurs solu- 
tions. Petit a petit, on op p rend 6 for- 
maliser, schematiser, model iser, roi- 
sonner et generaliser (je reprends 6 
dessein les grondes lignes de 
I'ouvrage}. Peul-on porler d'informati- 
que de la cinquieme generation ? 
Peutetre. Toujours est-il que, sans 
etre un fort en maths, I auteur de ce$ 
lignes a pris un reel plaisir a decouvrir 
des modeles de deduction logique dont 
il tirero sons doute le plus grand profit, 
Un Hvre 6 s'offrir et a etudier plutdt 
qua lire. 

* Lm Editions d'Drjoniiutiofl !>, rue Souiielef - Paris ?\ 



Jean FRIANT Yvoa LHQSP1TAUEI 

JEUX PROBLEMES: 

DE LA LOGIQUE 
A LIKTELUGENCE ARTIFICIELLE 
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• APPLE U ProDOS, GUIDE DU 
PROGRAMMEUR APPLESOFT 

(EDITIONS TREMPUN MICRO) 
Parution fin decembre 1986 
Auieur : Marcel COTTINI 

Comme le Hard, le Soft subit les 
memes regies de contrainte el devolu- 
tion technologique imposees par 
I'homme, seul mottre opres Dieu de la 
"machine". Pormi le Soft se trouvent 
des programmes tres particuliers 
appeles programmes systeme ou Disk 
Operating System (DOS). Ce sont des 
sous- programmes et routines qui tor- 
ment un ensemble coherent capable 



de gerer une configuration micro 
informolique dannee. Le DOS 3.3 fut 
en son temps un des pionniers des pro- 
grammes systeme. Plus pres de nous, 
le systeme ProDOS, Professional Disk 
Operating System, a ete elobore pour 
trauver son application dans le milieu 
professionnel, avec I'utilisotion dun 
disque dur du type Profile. Tres vile, 
Apple Computer a adapte la version 
professionnelle a Jo serie des Apple //. 
avec tout da bard un systeme ProDOS 
qui taumait sur une configuration de 
48 Ko. Par la suite, la version dorigine 
o ete modifiee et limite aux modeles 
Apple It ayant une RAM de 64 Ko mini- 
mum. ProDOS, systeme dexploi ration 
de rem placement du DOS 3.3, sollicite 
de plus en plus le hobbyiste. qu'il soil 
simple utiftsateur de soft au program- 
meur averti t Cost le lien entre le coeur 
de la machine" (le microprocesseur) 
et son environnement (les peri- 
pheriques}. 

APPLE II ProDOS, GUIDE DU PRO- 
GRAMMEUR APPLESOFT est un 
ouvroge destine 6 donner au lecteur 
tous les moyens eJementoires pour une 
meilleure comprehension de cerloins 
mecanismes internes du systeme. Son 
objeciif premier est de fomiliariser le 
programmeur protiquant TAppleSoft 
sous ProDOS, en troitant plus particu- 
llerernent te Basic System, Le program- 
meur en langage machine ne sera pas 
oublie, ban nombre d'elements se 
trouvant en bonne place dans ce livre. 
Par ailleurs, I'Apple //GStoumant sous 
un systeme ProDOS revu et adapte au 
microprocesseur 16 bits, il est vive- 
ment conseille de maitriser totalement 
ProDOS/ 8 bits ovant de se lancer dons 
toute nouvelle aventure. 

ProDOS/ 6 bits est un systems spec if i- 
que au microprocesseur 8 bits [6502 et 
65CQ2). ProDO c 16 bits est un systeme 
destine a I'App.a IIOS equipe dun 
microprocesseur 16 bits (65CB16}. Les 
deux versions de ProDOS different 
dons bien des domaines tout en gar- 
dant une certaine compatibilite au 
moment de lo commutation en mode 
emulation. Ce livre est done parfaite- 
ment adapte a tous ceux qui desirent 
rester f ideles a lo gamme des Apple It, 
tout en preporant le lecteur 6 un pas- 
sage en douceur, dun type de 
"machine" a un autre. 
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• COPIE EN /RAM ET ZERO BARRE 

Questions i Comment copier en /RAM certains fichiers dune dis- 
quette ProDOS ? Comment obtenir h ziro barre aver one impri- 
mante iMAGEWRITER ? (p.p. 6 9oo6 l yon) 



Pour copier des fichiers de tous types dans RAM il existe au 
moins deux programmes performants sur ie marc he. De ce 
fait je ne suis guere tente de refoire ce qui est deja disponi 
ble. II y o suffisammenf a faire par ailleurs ! NIBBLE a publie 
ProDOS COPY dons son numero de decembre 1985 Ce pro- 
gramme (plus queSques ay I res) est disponibJe sur !e disque 
ProDOS Library 2" au prix de 529.95 + $2.50 pour le port. 
Personnellement je prefere PROCMD de Glen BREDON dislri- 
bue par Call A.P.P.L.E. Ce produif regroupe une trentoine de 
commondes ojoulables a ProDOS. Lars de son introduction 
sur le marche ce produit etait vendu aux adherents de Cull 
A.P.P.L.E. S35 plus $9,52 pour le port avion. Jignore quel est 
son prixacfuellemenl. 

Adresses : 

NIBBLE 

45 Winthrop St. , Concord, MA 01 742, USA 
Coll A.P.P.LE, 

2890 S.W. 43 rd St., Renton, WA 98055, USA 
Pour les zeros bonis, je ne sais quel manuel vous avez. Il y a 
uneerreur dans Je manuel IMW+ tic. Je reproduis ci-dessous 
un petit programme qui vous donne deux modes d'acces. 
La formule 'CALL" n'est pas indispensable ici mois elfe est 
utile pour d outres sequences de commande qui ne peuvent 
etre envoyees direclement depuis fe Basic, soit qu elles ne 
bnclionnenl pas dans ce cas. soil qu'elles generent des effets 
parosites sur les sauts de ligne par exemple. 

)Q D$ = CHR$[A} : E$ = CHR$(27) ■ PRINT 
D$ "BLOAD BARREUR" ; PRINT DS 'PR£1 " 

20 PRINT E$"D" CHRS(0) CHRS (1 JfflOQOSOT ': REM 
zeros borres 

30 PRINT "OOOOOOO -REM ce sort des lettres 
40 PRINT ES T CHRS(O) CHR$(l)j WmQW: REM 

zeros classjques 
50 PRINT 

60 CALL 768 : PRINT 00000 00000 REM 5 

chiffres et 5 lettres 
70 CALL 768 + 3 PRINT "0 
80 PRINT DS PR£0 



BARREL! R 



COUT = SFDEO 



300 

302 



A2 

2C 



LDX 
HEX 



f D 
2C 



Pour sauter irrstruc- 
lion suivanle 



303 : 


A 2 


5A 




LDX 


%T 


305 : 


A9 


IB 




LDA 


£$Jfl 


307 : 


20 


ED 


FD 


JSR 


COUT 


30A 


8A 






TXA 




308 : 


20 


ED 


FD 


JSR 


COUT 


30E : 


A9 


00 




LDA 


£0 


319 : 


20 


ED 


FD 


JSR 


COUT 


313 : 


A 9 


01 




LDA 


£1 


315 : 


4C 


ED 


FD 


JMP 


COUT 



Escape. 

Recupere le rarac- 

tere specifique. 



BSAVE BARREUR ,A$3GQ,L$16 



Question : J'ai suivi d ia lettre vos indications, mais fa 
routine que vous m'avez hit parvenir n o donne aucun 
resuftat. I imprimante na sorti aucun caroctere : ni alpha- 
bet ique, ni semi-graphique. Je pense done que le mieux 
est de me procurer la carte GRAPPLER, comme vous me !e 
conseitlez, sachant que / avals achete I' ensemble OKI 
micro! ine BQ et interface parol fete d'occasion a une per- 
sonne qui n'avait ni notice ni explications a me donner sur 
ie hnctionnement. Pourriezvous donner aux lecteurs de 
TREMPLIN MICRO qui n'ont pas les moyens de s'offrir 
i IMAGEWRtTER 11 des conseils sur le choix d une impri- 
mante graphique meilieur marche fonctionnant sans trop 
de probl ernes sur APPLE ? j.-p. c (422 10 unias) 

rjjT~| Le choix d'une imprimante est fort large. Les IMA- 
I GEWRITER elles-memes posent parfois des proble- 
mes car elles recelent encore q jelques bugs En 
fait les ennuis sont generalement lies aux interfa 
ces. GRAPPLER existe en version parallels mais 
aussi, depuis tn an en version serie (je ne J'ai pas 
essayee), Sachez que, quel que soit votre choix, 
vous vous trouverez forcement face a des petits 
probl ernes irritants a resoudre. La corte SSC, inter- 
face serie officielle APPLE se comporte r sur plu- 
sieurs paints, autrement que la sortie serie du lie, 
ce qui n est pas de tout repos, La corte ALPHABITS 
de STREET ELECTRONICS est nettement plus proche 
des caracteristiques de la sortie du lie, mais comme 
il n y a pas d'importateur e'est le cirque en cos do 
pepin. II peut aussi y avoir des diffkuJtes de rela- 
tion logicielimprimante. 

APPLEWRITER se revele incopobJe de traitor correc- 
tement les sequences permettont de basculer du 
Francois a I'Allemand et d en revenir de meme qu'il 
n'est pas possible de charger des carocteres per- 
sonnalises depuis le programme. Je suis sur le 
point de terminer un ensemble de patchs qui 
reglera tous ces probiemes mois ne devrait pas 
etre commercialise avant 1987. ■ 
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Et encore 



* DMP UTILITIES 

M. L.P. (42155 POUILLY-LES-NO- 
NAINS) informe dans la rubrique 
"Du coq d l ane" de T.M. n°l l de 
la possibility d utiliser "DMP UTI- 
LITIES". Je suis en plein accord 
ovec lui, d'autant qu'il est tres 
facile de se procurer ce logiciel 
auprds de : 

RESEAU PLANETAIRE 

LES NOUVEAUX LOGICIELS 

BP 3 

43260 ST JUUEN CHAPTEUIL 
Tel. : 71.08.73.49 

En esperant que cette informa- 
tion interessera de nombreux 
fervertts, comme moL de votre 
revue, g.r. (77240 cesson) 

• SAI5IE LM ASSI5TEE 

Dans le programme «Saisie LM 
a$sistee»de T.M, n°3, a la ligne 
n°lQ4Q, il est preferable de met- 
tre «1040 CALL — 198: POKE — 
16368,(3... ete.w ptutot que POKE 

— 16398,0* (X. 6 PERPIGNAN) 



• LA BOITE AUX IDEES 

Je vous ecris a propos du pro- 
gramme BOITE, BAS paru dans 
T.M. n°8. Quand an execute son 
programme, On remarque rapi- 
dement que la recherche ne 
seffectue pas sur la derm ere 
chain e de caracteres entree. 
Celo semble du oux valeurs 
poquees en 8 et 9 (ligne 535). En 
effet, la valeur finale est tou- 
jour inferieure d'une unite 
(Quand N sera egal a 256 on 
poquera en 8 la valeur - 1 r ce qui 
provoquero vra i sem b lab I em en t 
un ILLEGAL QUANTITY ERROR], 
Le remede a ce defaut est tres 



simple : remplacer tous les (N 
-1 } par N. Lo ligne 535 devient : 
535 L = LEN [M$] : POKE 252, L : 
POKE 8, N - INT(N 256] * 256 
: POKE 9, 1NT[N/256) : M = 

M. H. (7B260 ACHEftES) 



• RUBANS SCRIBE 

Pour ceux qui c here Kent des ru- 
bans SCRIBE : 

PRECISION Data Products 
P.O. Box 8367 

Grand Rapids Ml 49518 U.S.A. 

S2.95 piece, par 6 minimum. Ecrire 
pour port et em ball age. 



• L'ORDINATEUR 
POUR MIEUX VOIR 

Ce nouveau systeme informatique 
de traitement d J images mesure 
images et echanti lions avec one 
puissance onalytique et une preci- 
sion inegalees a ce jour pour un 
cout relativement aussi peu el eve. 
D'emploi tres souple, ce C VAS 
3O0O se sert d une tech no log ie 
mise ou point 6 I'Unife d analyse 
d'imoges Wolfson de I'universite 
de Manchester [Grande- Bretagne) 
qui en fait un puissant instrument 
d'inspection visuelle pour une 
vaste gamme d applications indus- 
trielles et de recherche. 

Notre photo m on tre une camera 
de television de 625 lignes dirigee 
sur un circuit impnme aftn den 
donner de plus nombreux details 
sur un ecran de visualisation en 
couleur. On peut relier la camera 



Lorsque vous ecrivez J Tremptin 
Micro, n'oubtiez pas de joirtdre une 
pour fa reponse. 



a une macro -vis tonne use pour 
texomem d'imoges photogrophi- 
ques venant de nombreuses sour- 
ces. La camera peut egaJement 
etre reliee a un microscope pour 
lanalyse directe de toute matiere 
biobgique au autre. 

Le systeme de base se compose 
d un terminal et d un clavier, d'une 
machine de traitement dimages 
special isee et d un ecran de visua- 
lisation couleurs de haute defini- 
tion ovec «souris» de grophiques. 
Sont efforts en option : 

— tfois terminaux supplemen- 
tal res ; 

— une imprimante ultrarapide 
et differents systemes de liai- 
son avec diverses sources 
video et numeriques. 




La soaplesse d emploi vient de 
I adoption d un ensemble de base 
d'tcoutils» de* logiciels qui simple 
fiisnt grandement le travail de 
progrommation. 

VISUAL MACHINES LIMITED, 
Enterprise House, Manchester 
Science Park, Lloyd Street North, 
Manchester Ml 5 4EN, Angleterre. 
Tel. : 061 22&S666. 
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JEU VISUEL 



Memo-visu 




GRAPHEME : HGR. 

LANG ACE : Bosk. 

MATERIEL: Apple a^ec moni- 
teur touleur. Si 
I on dispose d un Apple fie avec 
carte EVE. on obtiendra un fond cou- 
leur en mode texfe fligne 100). Avec 
la carte Feline [on I'Apple tk) f (ins- 
truction sera sans effet. 



OBJECTIF 



Oevelopper la 
memoire visuelle 



en associont celle-ci a une 
perception des couleurs. 

DEROULEMENT : 



Le programme offkhe B corres dans 
un ordre alealoire et egalemenl co lo- 
res de focon aleotoire. 
II s agil . pour le joueur, d'indiquer 
dans quel ordre les carres sont appa- 
rus sur I'ecran. 



HCOLOR 





s 

ORANGE 



2 

VIOLET 




3 

BLANC 1 



7 

BLANC2 



LA PAGE HGR DE L'APPLE 

NCR 

Cest fabreviation de HIGH (haut)... et de GRAPHIC 
[graphique), Quand on tape HGR r en mode direct, on 
passe immediatement en mode graphique haute reso- 
lution et Ton dispose d'une page de 280 points de large 
sur 160 points de haut (0 a 279 et a 159). Une fenetre 
texte de 4 lignes subsiste sous I'ecran graphique. En 
memoire, la page HGR (page 1) occupe I'emplacement 
$2000-3FFF (de 8192 a 16383) . 

EXTENSION 

Un POKE - 16302,0 (ou 49234,0) permet d etendre HGR 6 
tout I'ecran en supprimant la fenetre texte. On dispose 
alors de 192 points en hauteur, au lieu de 160. 
POKE -16301,0 (49235,0) fait instantanement reapparaT- 
tre la fenetre texte sans detruire la page graphique. 

HCOLOR 

8 couleurs sont disponibles (de 6 7; voir la palette 
ci-contre). Pourquoi 2 noirs et 2 blancs ? Simplement 
parce que l epaisseur du trait noir ou blonc est moins 
importante que celle des outres couleurs. 

Dans les colonnes paires, on a le violet et le bleu. 
Dans les colonnes impaires, le vert et I'orange. 

II est indispensable d'inifialiser la couleur avant le pre- 
mier HGR. Si on ne se soumet pas a cette petite forma- 
lite, on risque d'etre en noir... et d'a voir un ecran vide. 

(Suite page 62) 
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.visa 



100 



105 

1 1 

115 

L20 

125 
130 

135 

140 
145 
153 
1 55 
160 
165 
170 
175 



180 



185 



190 
195 
290 

205 

210 
215 
220 



225 

230 
235 

248 



245 



PEEK (767 
( 1 ) * 6> : 



PRINT CHR* C2I>: CLEAR j POKE - 161? 
9,16 * 14 + 9; HOME : REM Carte Chat M 
auy&, carac orange sur fond bleu turqu 
o i se 

G0SU8 235 

A = 4 : B = 65 

POKE 230,32; HCOLOR= 3: HPLOT 0,0; CAL 
L - 30 82 

POKE 49236,0: POKE 49234; 8: POKE 49239 
,0s POKE 49232,0 
FOR J = 1 TO 3:R = 
HC = 1 + INT < RND 
3 THEN 136 

IF P < 5 THEN H - CR - 
GOTO 145 

Kj = 84:H = (R - 5> * 70 
HC<R> ~ HC 

HC:ijLOR= HC: GO SUB 225: QuSUB 
NEXT J 
60SUS 265 

POKE 49235,0: HOME : J = 8 : PT = 
J = J + 1 

PRINT "QUEL A ETE LE CARRE NU 
INVERSE * PRINT J; : NORMAL : 
; : CALL - 198: GET R*: PRINT 



+ J> 

IF HC = 
? 0:U - 3: 



345 







22 



MTAB 
MERO " i 
PRINT " 
R* 

IF PEEK < J + 767) = ASC (R*> - 64 TH 
EN ".'TAB 24 : CALL - 368 : PT = PT + 1: P 
R I NT "EXACT: NOTE = "PT;: GOTO 190 
YTAB 24: CALL - 868: PRINT "INEXACT - 
BONNE REPONSE: ■ CHR* C PEEK (J + 767 
> + 64); 

21: PRINT : IF J < 8 THEN 178 
GOSUB 250 

YTAB 22: CALL - 958: PRINT "UOTRE SCO 
RE EST " j : INVERSE : PRINT PT : NORMAL 
VTAB 24: PRINT "(1) ONE AUTRE PART IE - 

(0) TERMINE ->ctG ";: GOSUB 250 
IF R = 49 THEN 100 
IF R < > 48 THEN 285 

TEXT : POKE - 16200,16 * + 15; HOME 
: END : REM Carte Chat Mauve secran noi 
r , carac ter e s blancs s-ur -fond noir 
FOR I = TO B: HPLOT A + H,U + I TO B 
+ H,M + I : NEXT 
RETURN 

FOR I = 768 TO 775: POKE 
XT 

FOR I = B TO 7:R = INT ( RND < 1 > * 
IT = PEEK (768 * I): POKE 763 + I, 
EK (768 + R>i POKE 768 + R ,T : NEXT 
RETURN 



1,1 - 



767: NE 



7) 
PE 



E7A6 
154A 
FFFC 

9D93 

D21F 
9E0A 

87A2 

D4C6 
D1B6 
8D8* 
A926 
A3CC 
E74D 
C74F 
9350 



0C27 



CCAA 



6284 
718F 
E747 

864D 

53E0 
5191 
55 66 



2C84 

BAE0 
63B1 

327D 



2E9C 
63B1 



Passage en mode 40 
cdonnes. par PRINT 
CHR$ (21), 



POKE 230,32 permet 
d'etrire dan$ HGR 
(pour HGR2 : POKE 
230,64). Cette ligne 
efface I 'ecran avec la 
couleur 3. Cela permel 
d'avoir un ecran propre 
quand on arrive 6 HGR 



Passage en mode HGR 
sans efface ment d 'ecran 
et sans la lenetre de 
•exte. 



Choix afeatoire de la 
couleur. On exdut le 
noir 3 el le blanc 3., 
mais il reste le ncir4> 



POKE 49235,0 permet 
de retroover les A li- 
gnes de texte. 



IMPORTANT 

Ne tapez pas le& chif 
fres HEXA en bout de 
ligne : lis son! desti- 
nes a verifier la ccpie 
de votre programme 
en utilisont notre dis- 
quette SIGNATURE. 



Numeros de 1 6 7 
slotkes de 768 a 775. 



Melange aleatoire de 
ces numeros. 
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LIGNE D'ATTENTE. Sou- 
vent utilisee dan& 
TREMPLIN MICRO. On 
trouve dons R lo valeur 
ASC de lo louche 
pres&ee. 



ECRITURE HCR 

Cette partie du pro- 
gramme vous montre 
comment ecrire foci- 
lement (!) — et en 
Bosie — dans une 
poge grophique haute 
resolution, 

La longueur maxi- 
mum de la variable 
A$ est 255 coracteres. 
Si vous I a respectez, 
vous pouvez dessiner 
n importe quoL Atten* 
tion ! en couleur, 
doublez Tepaisseur 
des traits verticaux, 
comme ici, 



256 CALL - 198: POKE - 16368,6: WAIT - 
16334,123,127: POKE - 16363,6: UTAB 2 
1: PRINT :R = PEEK C - 16384) v RETURN 

REM ABCDEF6H 
XO - - 15 :Y = 14 

FOR 1=1 TO 8:X = XO + 76 * I : IF I > 
4 THEN Y = 96 :X = XO + 79 * < I - 4 > 
HC0L0R= 3: IF HOC I) = 6 OR HC< I ) = 5 T 
HEN HCOLOF- 7 

ON I GOSUB 368,426,486,540,600,660,726 
.78* 
NEXT 

RETURN 



255 
268 
2 65 
27i? 

275 

236 

285 
290 
295 
306 
305 
310 
315 
320 
325 

330 
335 
340 
345 

350 



REM ECRITURE DU TEXTEctJ 

FOR H = TO 7 

FOR L = 1 TO ? 

IF MID* (AS,L * H * 7,1) 

HPLOT X + L , Y + H 

NEXT : NEXT 



- **» THEN 



REM ESPACEctJ 

FOR BR = i TO 10:BZZZ = 

NEXT : RETURN 



PEEK (49200) 



D6FE 
0B3A 

7D6E 

E231 

D25C 

C1AF 
0582 
00 3A 
63B1 
0&3A 
003A 

E0C1 
43C6 

A5C9 
143E 
00 3A 



836B 
00 3A 



355 


REM Ac tJ 






366 


A* = " M 




EE79 


365 


AS = At + 


it » ^ - - ii 


BSvA 


370 


A* = AS + 


n ^ a 


42AE 


375 


A* = A* + 


11 ** ■ 


6CAE 


386 


A* = A* + 


" ** " **" 


6 CAE 


335 


At- = A* + 


» + + " 


59CC 


390 


as = a* + 


* ** '" " **" 


6 CAE 


39 5 


A* = A* + 


" ** " " ** " 


6 CAE 


40 e 






y 3A 




GOSUB 310s 


RETURN 


972F 


416 






3A 


415 


REM EctJ 






420 


A* = 11 :| 




EE79 


425 


A* = At + 


11 ****** " 


FCC 2 


^30 


AS = AS + 


" ** #*" 


iCAE 


435 


AS - AS + 


11 ** "'**" 


6 CAE 


440 


AS = AS + 


" ****** " 


FCC 2 


445 


AS = AS + 


" ** " " **" 


6CAE 


450 


A* = AS + 


" ** 


6CAE 


455 


AS = AS + 


" ****** 


FCC2 


460 






3A 


465 


GOSUB 310 


: RETURN 


972F 


470 






083A 



475 REM Cc_tJ 
490 AS = *" 

485 AS = AS + " ***** 11 

490 AS = AS + " ** " "**" 

495 AS = AS + "** M 

500 AS = AS + "** " 

505 AS = AS + "** " 

510 AS = AS + "** " **" 

51 5 AS - AS + M ***** 11 
520 : 

525 GOSUB 310: RETURN 

530 : 

535 REM Dc_t J 

540 AS = " " 

545 AS = AS + "****** ■ 

550 AS = AS + " ** '■ " **" 

555 AS = AS + "** "**" 

569 AS = AS + "** 

565 AS = AS + " ** *#" 

570 AS = AS + " ** " " **" 
575 AS = AS + ******* " 
530 : 

585 GOSUB 310: RETURN 



00 3A . . 

(Suite page &*) 
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-V1SU 



SUITE 













i 1 U 












3A 


ROC 

~J 7 


pcu F 








, 1 j 


REM 1 


- 








O C *3 


i— i +■ — 








7 2fl 






ib pi 






EE79 


Aft S 


A* - A* 




ii ^^atjtat Jt*L ii 


c r 
* i_ 


i £.0 


At 




AS 


1 


It XKkKIL 11 
T TTTT 


/ "_■ *w t 


* 1 14 


At - A* 


+ 




rr ■ OA 


"T 1 -■ fi 

.■ iy 


At 




At 


A. 
T" 


ltj£u ** ** njtH 


A TtiF 

9 iwM — 


Ol J 


At = At 


+ 


11 II 


rr ftA 
r L rH 


.- dd 


At 




At 


"f 




F 1" 9 A 


O ^- l J 


At = A* 


+ 


11 * * -t -*f * 11 


O b- 1- S 




At 




At 


X 
T 


11 *. 4. " 4. 4, 4, 11 




C'iD 


A* = At 




II 4;* LL 


r.- a/\ 

r L V H 


^ J. t" 


At 




At 






C' [ _ M — 


■j J K) 


At = At 


+ 


" * * " 




/DO 






At 


4. 




■_j r - 1 L. 




At = At 




+ + + -*- *- * 


Y L L 


f DD 


At 




At 




rl ^ ^ ^ ^ It 


O DO 


4 y 


- 






3A 


■ •-■ u 


• 










•_i 13 


6Hj 


GOSUE Jl : 


Kb 1 L'KT'j 


V7i!r 


-? j er 

r O 3 


GO 


BUB 3 


1 1*1 ■ 


r t 1 UKI ^ 




Q 3 l J 










/ i O 














ODD 


REM F 








— -7 

, f _' 


REM 


H 








i ,j 


At = " " 






EE. • 


"7 Q fl 


At 




11 11 










At - At 


+ 


" 4.4.4.4.^.^4 |: 


c cd r i _ 
_i y l 


^ Q ■_■ 


At 




At 






'— ~ X — 


670 


At = At 


+ 




FC9A 


790 


At 




At 


♦ 


" 


6 CAE 


675 


At = At 


+ 


»## 11 


FC'^h 


795 


At 




At 


+ 




6CAE 


680 


At = At 


+ 


'" 


6 BBS 




At 




At 




" ******* " 


59CC 


485 


At = At 


+ 


» ** ' " 


FC*A 


305 


At 




At 


+ 


" ** *+ N 


6CAE 


698 


At = At 


+ 


" ** " " 11 


FC9A 


810 


At 




At 


* 


" ** " **" 


6CAE 


695 


At = At 


+ 


" #* " 


FC9A 


815 


At 




At 


+ 


" ** ** M 


6CAE 


70 


■ 






60 3A 


320 


■ 

• 










003A 


70 5 


GOSUB 31 


: 


RETURN 


972F 


825 


GOSUE 3 


L0 : 


RETURN 


972F 



CE PROGRAMME FONCTIONNE SUR APPLE He & APP1E tfc 




Bientot, avec le nouveau manuel de Marcel COTTINI : 

APPLE II ProDOS 



GUIDE DU PROCRAMMEUR APPLE50FT 

ce nouveau systeme d'exploitation n'aura plus aucun secret pour vous 
(lire page 58, La micro et les livres). 

Comrnandez-le a TREMPL1N MICRO, en mdme temps que : 



ROUTINES LM POUR 65C02 et 6502 



(second recueil regroupant non seulement des programmes parus dans la revue, 
mats pr&entant diverses routines originales et leur mise en ceuvre a parti r du Basic). 

Bulletin de commande p^ge 63, 



GUY-HACHETTE 



MUSIQUE 



TROIS 



petits airs 



La routine SON 
se cache dans 
les lignes 20 et 25, 

Apres avoir 

demande 

a votre Apple 

dlnterpreter l J oir 

(arrange par 

Jean Perrot) 

du Roi DagobeH. 

tapez un 

BSAVE SON, 

A$3O0,L23 

et vous disposerez 

de la replique r 

en programme BIN, 

des lignes 20 et 25... 

Guand SON est en 
memoire, il est 
inutile de le 
reinstaller pour 
jouer un autre 
air... comme 
vous le prouve 
Frere Jacques... 



LE ROI DAGOBERT 




POKE 77 
POKE 73 



19 PRINT CHR* <-4> ; "PRO" : PRINT 

15 HOME : "TAB 19: HTAE 39: PRINT ,h LE BON 
ROI DAGOBERT" 

20 POKE 770,173: POKE 771,48: POKE 772,19 
2: POKE 773,136: POKE 774,203: POKE 77 
5,5: POKE 776 ,206: POKE 777.1 
3,3: POKE 779,240: POKE 733,'?: 
1 ,262 

25 POKE 732,203: POKE 783,245: POKE 734,1 
74: POKE 785,0: POKE 786,3: POKE 737.7 
6 : POKE 788 , 2 : POKE 739 , 3 : POKE 799 , 9 £ 

30 READ I, J: IF I = 6 THEN 45 

35 POKE 763,1: POKE 769 , J : CALL 779 

40 GOTO 30 

45 '-..'TAB 22: PRINT n ENCORE UNE FOIS ? " s : 
GET PS : PRINT : IF R* = 11 0" OR R* = "o 
" THEN UTAB 22: CALL - 363: RESTORE 
: GOTO 30 

50 HOME : END 

55 DATA 102, 123, 102,255, 11 5, 123, 115* 255.1 
23 , 1 23 , 1 23 , 255 , 1 , 1 6 , 1 1 5 , 255 , 1 , 1 6 , 1 9 2 , 1 
28.96, 123, 10 2, 128, 1 15, 128, 128, 128, 1 1 5, 
1 28 , 128 , 255 , 1 , 1 6 , 1 28 , 1 23 , 1 23 , i 23 , 1 1 5 , 1 

28 

60 DATA 162,255,102,123,10 2,128,96,123,86 
,128,115, 255 , 1 1 5 , 123 . 1 1 5 , 1 23 , 1 23 , 1 28 , 1 
15, 128, 1*2,255, 192, 123, 162, 123,96, 128, 
86,123,115, 255 ,115,123,115, 255 

65 DATA 1, 50,102,128.19 2,255,115.123,115 
.255,123, 123, 123,255, 1 , 32 , 128.255, 102, 
123, 96 , 1 23 , 1 9 2 , 1 25 , t 1 5 , 1 23 , 1 23 , 1 23 , 1 1 5 
,123, 128,255,0,0 



78 9 1 
6541 



9530 



A716 
4 3 m 3 
5646 
400E 



5*05 
8E51 



653.: 



hE5a 



1 998 



10 HONE : t'TAB 10: POKE 140 3,33: PRINT "F 

RERE JACQUES" 
15 READ I, J: IF I = 9 THEN 39 3890 
29 POKE 768,1: POKE 769, J: CALL 779 
25 GOTO 15 46 il 



FRERE 
JACQUES 

(suite au versoj 
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Ne manques pas 
de lire, page 14, 
i'excellent article 
de Roland JOST 
(ORGUE SUR APPLE). 



Ici, Jean 
Perrot appelle 
la routine SON 
par un BLOAD, 
mais si vous 
utilisez le 
programme 
a la suite 
des deux autres, 
la ligne 20 devient 
superflue. 



30 MTAB 22: PRINT " ENCORE 
GET RS: PRINT : IF Ft = 
11 THEN MTAB 22: CALL 
: GOTO 15 

35 HOME 

40 DATA 144,128,123,128,11 
44,128,128,128,115,128, 
,162, 123,96,255, 1 15,123 
,94,64,86,38,96, 68 , 102, 

45 DATA 115,123,144,128,96 
, 102,63, 1 15, 128, 144, 128 
8, 144,255, 128, 123, 192, 1 



LINE FOI 5 ? " ; : 

"O" OR Pf = ".< 
- 868: RESTORE 



5.123,144,123,1 
144, 128, 1 15, 128 
,187,123,96,255 

68 

, 63 , 36,33 , 96 , 38 
, 123, 128, 192, 12 
28, 144,255,9 ,0 



AU CLAIR DE LA LUNE 



1 PR I NT C HP? ■ 4 ' ; ' PR f 3 " ; PR 1 NT 
15 UTAB 19: HTAB 30: PRINT "AU CLAIR DE L 
A LUNE" 

20 PRINT CHR* C4>j"BL0AD SON " 

25 READ I, J: IP I = THEN 40 

3y POKE 768,1: POKE 76* , J ; CALL 770 

35 GOTO 25 

49 UTAB 22: PRINT " UNE AUTRE FOI =■ " ; : G 
ET R*: PRINT : IF R* - "0" CP R* = 11 c " 
THEN UTAB 22: CALL - 363: RESTORE : 
GOTO 25 

45 HOME 

50 DATA 96, 128, *6 , 123,96, 128,36, 128,76,25 
5,86, 255 ,96,123, 76 , 1 28 , 86 , 1 23 , 86 , 1 28 , 9 
6 t 255 , 1 , 1 28 , 96 , 1 28 , 96 ,123, 96 , 1 23 , 36 , 1 2 
3,76, 255 , 36 , 255 , 96 , 1 23 , 76 , 1 23 , 36 , 1 23 , 8 
6, 123,96,255, 1 ,128 

55 DATA 36 . 1 28 , 86 , 1 23 , S6 , 1 23 , 86 , 1 23 , 11 5 , 2 
55,115, 255 , 36 , 1 23 , 96 ,128,102,123,115,1 
23,128, 255 ,1,128, 96 ,128,96,128,96,128, 
36 , 1 23 , 76 , 255 , 3* ,255,96, 123,76,128,36, 
128,36, 123,96,255,0 ,0 



1308 



>0 92 



56 C0 
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r 339 
1 El 7 
429E 
5646 
50 1 2 



E0CE 
2F97 



9601 



3668 




Bientot, avec I'Apple HGS et son processeur 
ENSONIQ. les melomanes pourront s en donner 
a coeur joie, mais bon nombre de compositeurs 
utilisent dejd le clavier de leur Apple pour creer 
de petits airs. 

TREAAPLIN MICRO aimerait en regrouper one 
centoine sur une disquetfe d amis distribute 6 
prix coutant {20 F + frais d envoi). 
A vous de jouer, omie Lectrice, ami Lecteur ! * 

G.-H. 

' Programmes sur disqvette excfosivement (retournee apres utilisation). 
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Bulletin de commande et dabonnement 

A retournera r TREMPLHIM MICRO — Senilis — 86100 CHATELLERAULT 



Nom Prenom 

Adresse complete 

Code postal | | | ] | Ville 



LfS DISGUE TTES FONCriONNtNT SOUS DOS rr ProOOS (t> conditio do poster una wwrffeff) A P pt« d* c SYSTEM9 D EXPLOlTATiONl 



OUANTITE 


DESIGNATION 


PDIK UNITAIBE 

r M IA VrlllHI KG 


TOTAL 

IUI Hi 




rtuyrinefTienT ci tj nufnef os [un an J |- K /\ INJ L t 

A parti j- cfu Humoro : 


190 F 






Abonnement a 6 disquettes (un an) : FRANCE 

a port Ir du numA ro ; 


bOO F 






MINIE 

LE BUREAU DE AAINIE If H^'* j A|(QDV 

de Claude AUBRV 

1 F *^ S,f~l 1 I p f* p c r\i 1 oi IDC A| I 


ISO F 




ISO F 




50 F 






DISQUETTE UTILITY-DISK (Marcel COTTtNl) 


"1 ~~7 O 1= 






LIVRE : APPLE If PROOOS GUIDE DU PROGRAMMEUR APPLESOFT 


120 F 






LIVRE ; LE 6502 PAS a PAS 


120 F 






LIVRE +■ DISQUETTE ; CLINS D'GEIL AU 6502 


1 €>0 F 






LIVRE + DISQUETTE : ROUTINES LM POUR 65C02 El 6502 


1 BO F 






RELIURE-ECR1N 


40 F 






DISQUETTE - INDEX (N n l a 6) 


30 F 






DISQU ETTE- INDEX (N a 7 6 12) 


30 F 






SIGNATURE (CHECK-LIST) 


30 F 






DISQUETTE DE TREMPLIN MICRO : * (fte et ttc) 
N°l □ N°4 r 1 N°7 □ N°10D 

N°2fJ N°5 □ N*a N°iin : 
N a 3l ] N°6 n N"9n N°12 □ 


105 F 






NUMERO DE TREMPLIN MICRO :* 

N - i:~ N°2IZI N°3 n N°4 □ N°5D N°6 1 1 






30 F 




: N°SM N°9 LTJ N D 10 [ 1 N°U □ N°12 □ 


33 F 





Numero d'abonne ou de client : 



Participation dux (rois d'envoi (gratuit pour les abonncs) + 10 F 
Envoi on paqget-poste recommdnde a partir de 400 F 

Total a payer 



iVlerci de libeller votre r^glement 6 lordrg de TR EMPLIN MICRO / Editions J I BEN A . 
Mode de reglement choisi : □ Cheque I J Mandat-leltre I I Carte Bleue 




N Q de votre Carte 

Dote d expiration | | | | 

Montont a debitor F 



Signature ( Q bl ioaio it •) 
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vous interesse... Ceci vous interesse... Ceci 



• JOUER AVEC LES MATHS* 
par Henri C a ma us 

Professeur de rnathematiques 
appliquees, Henri CAMOU5 reus 
sit a nous donner, dans cet ou- 
vrage de 168 pages, le resume 
dune longue reflexion creatrice. 

Si vous oimez les maths, vous 
jouerei volontiers avec eltes, 
cakulette en main... II vous arri- 
vera oussi de vous retrouver en 
terrain connu quand lauteur 
evoquero le micro-ordinateur. 
L objectif avoue de ce livre est, 
tout en nous distrayant, dentre- 
tenir ou de developper notre 
aptitude generate 6 la resolution 
de problemes, II y parvient et il 
est certain que bon nombre de 
ses lecteurs oimeront ensuite 
oiler un peu plus loin ! 
' SdHtensdeVOrgonisntton 

5. rue Rousselel - 75007 PARIS - Tel, [I] 45.67. 18.40 



• VIE PRATIQUE 
EN MINITEL * 

par D. Do re et P. Fuzeau 

La premiere partie de ce livre 
met en scene une famille : les 
Leminit utilisent le minitel dans 



VIE PRATIQUE 

EN MINITEL 



■ 



leur vie de tous les jours. Ce guide 
pratique comprend des fiches das- 
sees dans rordre alphabetique 
{depuis animaux, onnuaires, ban- 
ques... jusqu'a tourisme et trans- 
ports). Ces fiches aideront le iec- 
teur d se retrouver parmi les 2 000 
services du minitel puisque les au- 
teurs en mentionnent 10%, selec- 
tion nes pour leur presentation 
agreoble, leur ropidite, leur 
efficacite. 

Par le biais du CLUB VIE PRATI- 
QUE EN MfNITEL, les lecteurs 
minitelistes sont invites a diolo- 
guer avec les auteurs, a expri 
mer leurs impressions, et les ser- 
vices qu'ils apprecient pourront 
etre retenus par les auteurs pour 
l edition de 1988. 
' Editions kfnemann 

15, rue de Tourngn 7S006 PARIS - Tel. (I) 43,26.05.88 

• AU RESEAU PLANET AiRE* 

Un avantage non negligeable 
pour les clients du ffeseau Plane- 
taire : des prix tres competitrfs. 
Voici quelques nouveautes de fin 
d'annee : 

— THETIS (generateur de jeux 
pour Apple fle-flc). Comme le 
precise la notice (en francois) 
qui I'accompagne, THETIS a 
pour vocation d'automatiser 
la creation de jeux d'aventu- 
res. A partif d'un scenario et 
d une suite d images definies 
par l utilisoteur, il genere la 
disquette de jeu et celle d 
pourra ensuite tourner inde- 
pendamment du programme 
de creation (178 F TTC). 

- EAMON : Les disquettes EA- 
MON sont tres connues aux 
USA. 1 1 s'agit d'une serie com- 
prenant une centaine de jeux 
daventures (texfes en 
anglais). Des utilitaires per- 
mettent en outre de creer vos 
propres personnoges, „ et 
leurs oventures. Le RESEAU 
PLANETAIRE o eu la bonne 
idee de troduire le MASTER 



EAMON en franco is (dis- 
quette et mode d'emploi). la 
version francaise est debug 
gee et amelioree... mais son 
prix reste tres bos (100 F 
TTC, Ee master 4- LE HLM 
MAUDIT). Ilfallaitlefaire I 

' Le Reseou Picnic ire 

BP3 -43260 St-Julien-Chapteuil Tel. 71,08.73.49 



• VlFl NATHAN* 

Les enseignants connaissent de 
reputation le departement VIFi 
NATHAN. Nambreux sont les 
programmes educatifs tournant 
sur Apple fie et flc... et par 
exemple : 

- L"h6TEL DES MARION NETTES 
(jeu de logique). S'adresse 6 
des enfants de 8 a 13 ons. Entre 
les Moppets grands ou petits, 
gros ou minces, habilles de 
rouge ou de bleu et de type Bib- 
bitou Gribbit.,, on se perd un 
peu, mais ce nest vroi que si 
\'or\ n est pas capable de raison- 
ner logiquement ! 

- LA BOiTE A PUCES : Cest oussi 
un jeu de logique fa partir de 9 
ans), mois qui permet de decou 
vrir ce que sont les circuits elec- 
troniques, notamment en utili- 
sant les notions d'horloge, de 
bascule, de declencheur a 
retardement,, Un petit logiciel 
sympathique capable d'interes- 
ser les enfants... avec I aide du 
papa ou du maltre. 

- CONJUGUER : Quand le 
Robert et VIE! s'associent, 
eel a donne un interessont 
outil pedaqogique dappren 
tissage de Ta conjugaison. Ce 
logiciel n est pas recent, mais 
il est certain quil peut per- 
mettre d des enfants de de- 
couvrir, en s'amusont devant 
l ecran d'un Apple, les 47 for- 
mes de chaque verbe, presen- 
tees en un tableau immedio- 
tement accessible a l ecran, 

* VIFI INTERNATIONAL 

I 31. Boulevard Pcmsonniere - 75002 PARIS. 
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Pour Programmer Votre Apple : 




Extrait du sommaire de la revue Pom's 28 

un programme de transmission de fichfera d T un Apple a Pantre par Ee 
Mlnltel : TEXT, Basic, bin aire, fichler systems, AppleWorks... Le 
protocole adopte (solicitation / acquiescement) dunne aux or- 
dinate urs une transmission 'Inteillgente' : par exemple, le reccpteur 
saura redemander une don nee mal comprise ; 

r equivalent sur Macintosh pour pennettre des transfers Mac/Mac, 
Mac/ Apple // et red proque me nt ; 

un programme 'PicoExpert* de conception dldacllquc pour ap- 
procher I'lntelllgence artificlelle et ies polnteurs en Pascal ; 
deux commandes extemes ProDOS dormant I* equivalent (am e Ho re) 
du M ON CIO dlsponlble sous DOS. Les commandes adressees a Pro- 
DOS par votre programme Basic (ou par le FILER par exemple) 
peuvent alors £lre sulvies, controlees et analyses ; 
des elements sur le codage des messages de ProDOS ; 

Pom's, chez votre marchand de journaux 



Bon de commande a retourtier a : 
Editions MEV - 64, rue des Chantiers 
78000 Versaillas 

Je desire recevoir : 

• Revue Pom's 28 a 45,00 F 

* Disqitelie Pom>s 28.. .it 60,00 F ~„ ». 

Total: 

Nom, adresse : 




Chaque mois, 
le meilleur 
de la 

technique 
et de la 
pratique 

photo ! 



Chez votre 
marchand de joumaux ! 



